Try This, just change the address between the quotes to suit your
needs.

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo DoNothing
If Target.Address = "$A$1" Then
MsgBox "This works"
End If
Exit Sub

DoNothing:

End Sub


This will avoid running into a continuos loop