시트를 반복할 때 시트 제외

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