VBA – Percorrer Todas as Planilhas com For Each

As macros aplicadas a uma pasta de trabalho inteira podem ser úteis para extrair dados de várias planilhas para uma nova pasta de trabalho, aplicar formatação avançada a todas as planilhas ou por muitos outros motivos. Veja a seguir a sintaxe básica e um exemplo de código funcional para VBA que funciona em todas as planilhas de uma pasta de trabalho.

Loop por Todas as Planilhas da Pasta de Trabalho

A sintaxe básica para percorrer todas as planilhas de uma pasta de trabalho e aplicar o código VBA a elas é

For Each ws In Worksheets
  'Atualizar ou fazer algo aqui
Next

Atualizar Todas as Planilhas da Pasta de Trabalho Usando VBA

Para obter um exemplo funcional, copie e cole o código a seguir em um módulo e execute-o. O resultado é um texto colocado na célula A1 de todas as planilhas de sua pasta de trabalho.

Public Sub FazerParaTodas()

'Declarar nossa variável
Dim ws As Worksheet

For Each ws In Worksheets
'coloque o código entre For e Next
'para o que você gostaria de fazer em
'cada planilha

 ws.Range("A1") = "AutomateExcel.com"
Next

End Sub