VBA – Listar os nomes de suas planilhas

Olá Amigos,

Estava elaborando uma ferramenta para uma cliente quando me deparei com a necessidade de Listar os nomes das planilhas Excel, quando me dei conta que um dos relatórios que tinha de ser gerado possuía mais de 200 Sheets, ai pensei, e agora?

Para situações como estas devemos recorrer ao bom e velho VBA…

Se for duas ou três Sheets pode-se fazer isso manualmente, porém, se for mais, esta tarefa torna-se inviável.

Veja o Código abaixo, isso pode ser facilmente resolvido.

Sub Listar_Nomes()
    Dim i As Integer
    Dim NumSheets As Integer

    NumSheets = Sheets.Count
    For i = 1 To NumSheets
        Cells(i, 1) = Sheets(i).Name
    Next i
End Sub

Este código deve ser inserido em um módulo no VBA e a macro executada.

Espero ter ajudado com esta postagem e fico a disposição!

Um abraço