Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
If Target.Value = "Item1" Then
Application.Run "Book1!Macro1"
ElseIf Target.Value = "Item2" Then
Application.Run "Book1!Macro2"
End If
Application.EnableEvents = True
End If
End Sub