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

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