Select Case UCase(MyString) Case "" MsgBox "Macro aborted", , MyName Case "A" Call SubA Case "B", "F", "S", "T", "V" Call SubMisc Case "G" Call SubG Case Else MsgBox "Invalid data" End Select