Excluir hojas al recorrerlas en bucle

Question

Agradecería ayuda con el siguiente código. Lo que intento lograr es realizar algo de código en cada hoja de un libro de trabajo, excepto en tres hojas. Mi código a continuación pasa por todas las pestañas, pero no he podido omitir las tres hojas.

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

Utilice una declaración 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