Exclui folhas ao fazer o loop por folhas

Question

Gostaria de receber ajuda com o código abaixo. O que eu estou tentando realizar é executar algum código para cada folha em uma pasta de trabalho, exceto três folhas. 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 declaraçã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