Simple error: List multiple sheet names in Workbook_SheetActivate event

Hi guys,

I hope you can help.

It should be something really simple.

I want a warning to appear when one activates certain sheets. I have tried the following, where I list the sheet names as follows:

If Sh.Name = "DataBase" Or "List" Then

But this gives me a Run-time error: 13 Type mismatch.

When a list a single sheet name as follows:

If Sh.Name = "DataBase" Then

it works fine.

Here is my code:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

If Sh.Name <> "DataBase" Then

    MsgBox "You may use this sheet!"
   
Else

    If Sh.Name = "DataBase" Or "List" Then
    answer = MsgBox("Please use with caution!", vbOKCancel)
        If answer = vbCancel Then
        
        Sh.Visible = False
                
        End If

    End If

End If

End Sub

Thank you!

Try change the line to:

If Sh.Name = "DataBase" Or Sh.Name = "List" Then

And here's another alternative:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Select Case LCase$(Sh.Name)
        Case "database", "list"
            If MsgBox("Please use with caution!", vbOKCancel) = vbCancel Then Sh.Visible = False
        Case Else
            MsgBox "You may use this sheet!"
    End Select
End Sub

You may want to wrap it in application.enableevents = False and application.enableevents = True, in case you'd hide the DataBase or List-sheets during the procedure by pressing cancel (thereby triggerering a new event).

Hope this helps,
berlan