Como criar uma lista de todas as planilhas na pasta de trabalho ativa usando uma macro VBA
Você gostaria de criar uma tabela de todas as planilhas na pasta de trabalho ativa? Use a seguinte macro:
Sub ShowTablesheets ()
Dim Row As Long
Dim Sheet As Worksheet
Dim Nova Folha como Folha de Trabalho
Definir Neublatt = ActiveWorkbook.Worksheets.Add
Linha = 1
Para cada folha em ActiveWorkbook.Worksheets
If Sheet.Name New Sheet.Name Then
Nova folha.Células (linha, 1) = folha.nome
Linha = linha + 1
Fim se
Próxima folha
End Sub
A macro cria uma nova planilha na pasta de trabalho ativa na qual os nomes de todas as planilhas são salvos. Apenas a nova folha de visão geral é excluída da lista. A figura a seguir mostra como pode ser o resultado:
Para inserir a macro, abra o editor VBA no Excel usando a combinação de teclas ALT F11. Neste editor, selecione o comando INSERT - MODULE e insira a macro. Você inicia a macro do Excel usando a combinação de teclas ALT F8.
