Исключить листы при циклическом переборе листов

Question

Я был бы признателен за помощь с кодом ниже. Я пытаюсь выполнить код для каждого листа в рабочей книге, за исключением трех листов. Мой код ниже проходит через каждую вкладку, но я не смог понять, как пропустить три листа.

Sub Worksheet_Loop()

Dim ws As Worksheet

  For Each ws In ThisWorkbook.Worksheets

        Debug.Print ws.Name

    End If
  Next ws

End Sub

Answer 1

Используйте оператор if:

Sub Worksheet_Loop()

Dim ws As Worksheet

  For Each ws In ThisWorkbook.Worksheets
    If ws.name <> "Sheet1" and ws.name <> "Sheet2" And ws.name <> "Sheet3" then
        Debug.Print ws.Name         
    End If
  Next ws

End Sub