Variable in "Untermakro" mitnehmen?

Private Sub CommandButton1_Click()
Dim an As Boolean
an = True
Call change
End Sub

und

Private Sub CommandButton2_Click()
Dim an As Boolean
an = False
Call change
End Sub

Nun soll die Variable "an" im eigentlichen Makro "Change" verwendet werden. Dieses sieht dann so aus:

Sub change()
For i = 12 To 17
Range("D" & i).Value = an
Next i
End Sub

Nun habe ich festgestellt, dass beim Call-Aufruf des Makros "Change" die Variable "an" gar nicht mit übergeben wird. Geht das so, wie ich mir das vorstelle, gar nicht oder habe ich nur einen falschen/fehlenden Code?
Danke.
David