Obtener el nombre de las hojas de un libro mediante VBA

Aca tienes otra alternativa si quieres listarlas en una hoja aparte (Nueva
hoja)

Sub ListarNombreHojas()

Dim Rango As Range
Dim Hoja As Worksheet
Set Rango = Range("A1")
For Each Hoja In ActiveWorkbook.Worksheets
Rango.Value = Hoja.Name
Set Rango = Rango(2, 1)
Next Hoja

End Sub
"Sergio L." wrote in message
news:
> Pues eso, obtener en un array por ejemplo todos los nombre de las hojas

> un libro. Alguien sabe como hacerlo ?
> Desde ya muchas gracias.
>
>
>