VBA – Macro Para Listar Todas as Planilhas em uma Pasta de Trabalho

A macro a seguir percorre todas as planilhas de uma pasta de trabalho e grava o nome da guia de cada planilha sequencialmente em uma planilha que você escolher. Isso pode ser útil para uma lista rápida de todas as planilhas em uma pasta de trabalho com muitas planilhas.

Listar Todas as Planilhas em uma Pasta de Trabalho

Para usar a macro, basta substituir a palavra Planilha1 (que aparece duas vezes) no código pelo nome da guia em que você deseja obter os resultados. Certifique-se de que não haja nenhuma informação importante na guia de saída, pois ela limpa os dados antes de gravar nela.

Sub ListarPlanilhas()

Dim ws As Worksheet
Dim x As Integer

x = 1

Sheets("Planilha1").Range("A:A").Clear

For Each ws In Worksheets
     Sheets("Planilha1").Cells(x, 1) = ws.Name
     x = x + 1
Next ws

End Sub