WorksheetChange funktioniert nicht mehr richtig

Hallo zusammen :-)
ich habe eine kleine Herausforderung, bei der ich alleine leider nicht mehr weiter komme.
Ich habe eine Datei, die bei mir super funktioniert. Jetzt habe ich diese versucht auf einem anderen PC zu verwenden, das geht aber nur noch so halb. Die Excel Versionen sind jeweils die Gleichen.
Dies hier ist ein Ausschnitt aus meinem Code. Was ich nicht verstehe ist, dass er mir mein "Hallo" ausgibt, aber nicht die Zellen kopiert und auf dem anderen Rechner schon. Gibt es da vielleicht irgendwie etwas, was ich übersehe?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$3" Then
If Target.Value = "1" Then
Msgbox("Hallo")
Worksheets("Tabelle1").Range("D2:D17").Copy
With Worksheets("Tabelle2").Range("D10:D25")
.PasteSpecial Paste:=xlValues
End With
End If
end if
End Sub