Clear all worksheets EXCEPT ones I list

[ItalianPlatinum]

I am looking for a way to improve the way I am clearing my sheets by looping through and looking for maybe something faster. ie, clearing all worksheets in my workbook except 2 or 3 I list. Currently I have 20 worksheets

' Run loop to clear sheets that would be in use
  i = 0
  Do Until WsCus.Range("FILTER").Offset(i, 0) = ""
    FILTER = WsCus.Range("FILTER").Offset(i, 0)
    SheetName = WsCus.Range("FILTER").Offset(i, -1).Value 'Assuming from your screenshot it's in the column left of the filter
    
    Worksheets(SheetName).Cells.ClearContents
    i = i + 1
Loop

 

[Joe4]

If you have 2 or 3 that you want to exclude, you could just do something like:

    Dim ws As Worksheet
    
    For Each ws In ActiveWorkbook.Worksheets
        If (ws.Name <> "Sheet1") And (ws.Name <> "Sheet2") And (ws.Name <> "Sheet3") Then
            ws.Cells.ClearContents
        End If
    Next ws

Where "Sheet1", "Sheet2", and "Sheet3" are the three we want to exclude.

 

[ItalianPlatinum]

Will that ignore sheets I have hidden? if not then ill have more. The sheets I want to clear only have 1 character names

 

[Joe4]

Will that ignore sheets I have hidden?

That is an important detail you failed to mention!

If you want to also exclude hidden worksheets, use this version:

    Dim ws As Worksheet
    
    For Each ws In ActiveWorkbook.Worksheets
        If (ws.Name <> "Sheet4") And (ws.Name <> "Sheet3") Then
            If ws.Visible = True Then ws.Cells.ClearContents
        End If
    Next ws

 

[ItalianPlatinum]

Thank you @Joe4 looks to be working as intended!