Opdatering af felter efter VBA Kode

Hej Eksperter
Jeg er total grøn indenfor VBA kodning (har været i gang i små to timer nu) og har i den forbindelse et kort spørgsmål til jer.
Nedenstående kode henter produktoplysninger fra en produkttransaktionstabel.
Jeg har også fået den til at hente værdien fra cellen D1. Dvs. jeg kan indtaste et produktnummer i feltet D1 og så viser ODBC kaldet kun oplysningerne omkring dette nummer. Mit problem er at jeg skal kører makroen før den henter oplysningerne frem omkring det produktnummer jeg har indtastet, så det jeg mangler er en eller anden "Autoupdate", som får makroen til at kører automatisk når man har tastet en ny værdi i feltet D1:
Min kode er som følger:
Range("A1").Select
    With Selection.QueryTable
        .Connection = Array(Array( _
        "ODBC;DSN=VismaBusiness;Description=Visma Business Installed SQL Server;UID=sa;APP=Microsoft Office 2003;WSID=SITM05;DATABASE=F9999;A" _
        ), Array("utoTranslate=No;Trusted_Connection=Yes;QuotedId=No;AnsiNPW=No"))
        .CommandText = Array( _
        "SELECT Prod.ProdNo" & Chr(13) & "" & Chr(10) & "FROM F9999.dbo.Prod Prod" & Chr(13) & "" & Chr(10) & "WHERE (Prod.ProdNo='" & Range("d1") & "')")
        .Refresh BackgroundQuery:=False
            End With
End Sub

Mvh
Boeck