bestimmte zellenklick bestimmter makro

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Worksheets("tabelle1").Range("a1")
Case 1
If Target.Address <> "$a$1" Then Exit Sub: Test Else
Case 2
If Target.Address <> "$a$2" Then Exit Sub: Test Else
Case 3
If Target.Address <> "$a$3" Then Exit Sub: Test Else
Case Else
If Target.Address <> "$a$4" Then Exit Sub: Test Else
End Select
End Sub
Sub Test()
MsgBox "Hallo Makro!"
End Sub