Excluir planilhas ao percorrer planilhas

Question

Eu apreciaria alguma ajuda com o código abaixo. O que estou tentando realizar é executar algum código em cada planilha de uma pasta de trabalho, exceto três planilhas. Meu código abaixo passa por todas as guias, mas não consegui pular as três folhas.

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

Use uma instrução 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