Select Case sheets("plan1").range("B2").value
Case 1
macro1
Case 2
macro2
Case 3
macro3
End Select

Boa noite!!

Vai ai uma gambiarra...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Target = "" Then Exit Sub
    Application.ScreenUpdating = False
    Application.EnableEvents = False
     
   Select Case Sheets("Plan1").Range("B2").Value
    Case 1
    MsgBox "macro1"
    Case 2
    MsgBox "macro2"
    Case 3
    MsgBox "macro3"
    End Select
    Application.ScreenUpdating = True
    Application.EnableEvents = True
     
End Sub