A macro a seguir percorre cada folha em uma pasta de trabalho e grava o nome da guia de cada folha sequencialmente em uma folha de sua escolha. Isso pode ser útil para uma lista rápida de todas as planilhas em uma pasta de trabalho com muitas planilhas.
Liste todas as planilhas em uma pasta de trabalho
Para usar a macro, basta substituir a palavra Folha1 (ela aparece duas vezes) no código pelo nome da guia onde deseja 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 gravá-la.
| 123456789101112131415 | Sub ListSheets ()Dim ws como planilhaDim x As Integerx = 1Folhas ("Folha1"). Intervalo ("A: A"). LimparPara cada ws nas planilhasFolhas ("Folha1"). Células (x, 1) = ws.Nomex = x + 1Próximo wsEnd Sub |
