Case Statement - names represent cases

[KyleG]

Not sure if im doing this right as this is my first attempt at a case statement. Every other time have planned on doing one have found another way around the problem.

Heres what i have.

Private Sub Workbook_Open()
MY_PASS = InputBox("Please enter the password", "PASSWORD PROTECTED")
Select Case MY_PASS
Case April: Worksheets("DELI").Select
Case ValP: Worksheets("Bulkfoods").Select
Case Nathan: Worksheets("Grocery").Select
End Select
End Sub

It doesnt work though.

 

[Glaswegian]

Hi Kyle

Input Box Function returns a string. Therefore you need to have your Case values in quotation marks.

Case "April": Worksheets("DELI").Select

HTH

Regards

 

[Scott Huish]

Try this:

Private Sub Workbook_Open()
Dim MY_PASS
MY_PASS = InputBox("Please enter the password", "PASSWORD PROTECTED")
Select Case MY_PASS
    Case "April"
        Worksheets("DELI").Select
    Case "ValP"
        Worksheets("Bulkfoods").Select
    Case "Nathan"
        Worksheets("Grocery").Select
End Select
End Sub