Coloca assim:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call Sua Macro
End Sub

boobymcgee

Não consegui resolver com esse código ai.. mas consegui chegar num resultado que funciona...

Public Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False

If Target.Address = "$A$1" Then
     Select Case Target.Value
            Case 1
                    MsgBox "macro1"
            Case 2
                    MsgBox "macro2"
            Case "dd"
                    MsgBox "macro3"

     End Select

End If
Application.EnableEvents = True

End Sub