UserForm Listbox Add Worksheets with If Check

[jvbeats]

Hi working to activate my userform listbox with a list of all worksheets except certain named ones. This is what I have so far...

Private Sub UserForm_Activate()
    Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
        
        If ws.Name <> "SheetName1" Or "Sheet2" Or "This_Sheet Then

            ListBox.AddItem (ws.Name)
        End If
Next ws

    
End Sub

I'm getting an type mismatch error on "If ws.Name <> "SheetName1" Or "Sheet2" Or "This_Sheet Then"

How do I specify which sheets to exclude?

[Norie]

Try this.

For Each ws In ThisWorkbook.Worksheets
    Select Case ws.Name
         Case "SheetName1", "Sheet2", "This_Sheet"
               ' do nothing
         Case Else
               ' add worksheet
              Listbox1.AddItem ws.Name
    End Select
Next ws

[jvbeats]

thank u. that works. is it possible to do that in an If statement though? why didn't the original one work?

[Norie]

This is what the If would look like.

If ws.Name<> "SheetName1" And ws.Name <>"Sheet2" And ws.Name<>"This_Sheet" Then