Hi Mike,
Try this code in the sheet's code module...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("P7")) Is Nothing Then
Application.EnableEvents = False
Select Case Range("P7")
Case 1
Call macro1
Case 2
Call macro2
Case 3
Call macro3
End Select
End If
Application.EnableEvents = True
End Sub

Ken Johnson