Para listar todas as abas de uma planilha bastar usar o seguinte comando:
Sub
ListaPlanilhas()
nplanilhas = Sheets.Count For n = 1 To nplanilhas Range("A" & n) = Sheets(n).Name Next n
End Sub
Caso queria esse arquivo, favor enviar um email para contato@exceleaccess.com solicitando.
Obrigado pela visita!
www.exceleaccess.com
contato@exceleaccess.com
www.exceleaccess.com
www.exceleaccess.com
www.exceleaccess.com