Makrostart bei Änderung einer berechneten Zelle

Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "A1" Then
Test
End If
End Sub

Sub Test()
MsgBox "Sie haben gerade Zelle A1!"
End Sub

Gruß
Dirk