Obtener el nombre de las hojas de un libro mediante VBA

Sub hojas()
Dim Hoja As Worksheet
For Each Hoja In Worksheets
MsgBox "nombre hoja: " & Hoja.Name
Next
End Sub

Pues eso, obtener en un array por ejemplo todos los nombre

de las hojas de

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



.

En una matriz:

Sub NombresHojas()

CantidadHojas = Me.Application.ActiveWorkbook.Sheets.Count
ReDim Matriz(CantidadHojas)
For x = 1 To CantidadHojas
Matriz(x) = Me.Application.Sheets.Item(x).Name
Next x

End Sub

Sub hojas()
Dim Hoja As Worksheet
For Each Hoja In Worksheets
MsgBox "nombre hoja: " & Hoja.Name
Next
End Sub

Pues eso, obtener en un array por ejemplo todos los

nombre

de las hojas de

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



.

.

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 de
un libro. Alguien sabe como hacerlo ?
Desde ya muchas gracias.

Muchísimas gracias Sir.


escribió en el mensaje
news:2edb001c46da3$c380ee00$

Sub hojas()
Dim Hoja As Worksheet
For Each Hoja In Worksheets
MsgBox "nombre hoja: " & Hoja.Name
Next
End Sub



>Pues eso, obtener en un array por ejemplo todos los nombre
de las hojas de
>un libro. Alguien sabe como hacerlo ?
>Desde ya muchas gracias.
>
>
>
>.
>

Muchísimas gracias Leandro.


"Leandro" escribió en el mensaje
news:2ee2c01c46da8$28901100$

En una matriz:

Sub NombresHojas()

CantidadHojas = Me.Application.ActiveWorkbook.Sheets.Count
ReDim Matriz(CantidadHojas)
For x = 1 To CantidadHojas
Matriz(x) = Me.Application.Sheets.Item(x).Name
Next x

End Sub

>Sub hojas()
> Dim Hoja As Worksheet
> For Each Hoja In Worksheets
> MsgBox "nombre hoja: " & Hoja.Name
> Next
>End Sub
>
>
>
>>Pues eso, obtener en un array por ejemplo todos los
nombre
>de las hojas de
>>un libro. Alguien sabe como hacerlo ?
>>Desde ya muchas gracias.
>>
>>
>>
>>.
>>
>.
>