Makroproblem med Worksheet_Change

Følgende makro(er) :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Msg, Style, Title, Response, MyString

Msg = "Do you want to make this value continue to year end?"    ' Define message.
Style = vbYesNo + vbCritical + vbDefaultButton2    ' Define buttons.
Title = "Auto fill function"    ' Define title.
       
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then    ' User chose Yes.
    MyString = "Yes"    ' Perform some action.

    AutoFill

Else    ' User chose No.
    MyString = "No"    ' Perform some action.
End If

End Sub

Aktiveres når en bruger ændrer en en tilfældig celle i min matrix.

Da makroen AutoFill som regel indsætter op til 12 værdier i de efterfølgende rækker, opfattes dette som 12 Worksheet_Change og brugeren bliver altså promptet 12 gange for det samme !!!!

Hvad skal ændres ???