Tente usar a seguinte macro:
Sub ListWorkSheetNames()
For i = 1 To Sheets.Count
Range("A" & i) = Sheets(i).Name
Next i
End Sub
Para mim - funciona muito bem.
( source )
Eu tenho um arquivo excel que tem muitas folhas. Como posso obter uma lista de nomes de folhas do ms-excel?
(PS: o escritório é a versão mac).
Para obter o mesmo que acima, mas também com hyperlinks levando você para a planilha:
Sub ListWorkSheetNames()
For i = 1 To Sheets.Count
Range("A" & i) = "=HYPERLINK('" + Sheets(i).Name + "'!A1, """ + Sheets(i).Name + " "")"
Next i
End Sub