Sub RunOneOrTheOther()
  Select Case MsgBox("Do you want to run Macro A?", vbQuestion + vbYesNo, "Run Macro")
    Case vbYes: A
    Case vbNo: B
  End Select
End Sub