Using "Case" Statements with VBA

Public Sub Test()

Call CaseTest("Case2") ' Note the ""

End Sub

Public Sub CaseTest(CaseSelect)

Select Case CaseSelect

Case "Case1"

MsgBox "Case1"

Case "Case2" ' Note the ""

MsgBox "Case2"

End Select
End Sub

Public Sub Test()

Call CaseTest(2)

End Sub

Public Sub CaseTest(CaseSelect)

Select Case CaseSelect

Case 1

MsgBox "Case1"

Case 2

MsgBox "Case2"

End Select
End Sub