My own preference for this type of thing is to use a Select statement.

I'd also change the name to Uppercase so there was no mistakes in the
compare.

This would look something like...

For Each wSht In Worksheets
Select case Ucase(wSht.Name)
Case "SHEET1", "SAMPLE"
'Do Nothing

Case Else
'Code for rest  of sheets

End Select
Next wSht