¿Cómo obtener la lista de nombres de hojas de ms-excel?

Question

Tengo un archivo excel que tiene muchas hojas. ¿Cómo puedo obtener una lista de nombres de hojas de ms-excel?

(PD: Office es la versión para Mac).

Answer 1

Intente utilizar la siguiente macro:

Sub ListWorkSheetNames()

For i = 1 To Sheets.Count
Range("A" & i) = Sheets(i).Name
Next i

End Sub

Para mí, funciona bastante bien.

(fuente)

Answer 2

Para obtener lo mismo que arriba pero además con hipervínculos que lo lleven a la hoja:

Sub ListWorkSheetNames()

For i = 1 To Sheets.Count
Range("A" & i) = "=HYPERLINK('" + Sheets(i).Name + "'!A1, """ + Sheets(i).Name + " "")"
Next i

End Sub