Shortening Conditional Code

[T De Villiers]

Hi,

The code below works fine but just wondering how to shorten the code in *
as in reality I want to extend the number of conditions, many thanks

For Each WKS In ThisWorkbook.Worksheets
*If WKS.Name <> "MAIN" And WKS.Name <> "TEST" And WKS.Name *<> "TABLE" And Wks.Name <>"SIGN" Then
WKS.Delete
End If
Next

[T-J]

One way is

If InStr("MAIN,TEST,TABLE,SIGN", WKS.Name) = 0 Then