Obtener el nombre de las pestañas de un libro

17/02/2010 - 00:00 por Sergio Eduardo | Informe spam
Que tal amigos tengo el siguiente problemilla

En un libro de excel tengo como 50 pestañas y cada una tiene
diferente nombre como hago para obtener el nombre de cada una de las
pestañas

saludos y muchas gracias
 

Leer las respuestas

#1 Cacho
17/02/2010 - 01:35 | Informe spam
Hola! Sergio Eduardo.

a) Inserta una hoja nueva (no tiene importancia el nombre que le pongas a
esta hoja)

b) Haz clic con el botón derecho de tu ratón en la etiqueta de la hoja nueva
y selecciona: Ver código.

c) En la ventana que se te abrirá, copia y pega el siguiente código:
___________________

Sub ListarHojas()
Dim Hj As Worksheet
Application.ScreenUpdating = False
With [a1]
.EntireColumn.ClearContents: .Value = "Hojas"
.Font.Bold = True: .Font.Underline = xlUnderlineStyleSingle
End With
For Each Hj In Sheets
Range("a" & 1 + Hj.Index) = Hj.Name
Next Hj
Application.ScreenUpdating = True
End Sub

___________________


d) Cierra todas las ventanas del ambiente Visual Basic for Application en el
que te encuentras y retorna al Excel.

e) Ejecuta la macro recién incorporada: ListarHojas


Cada vez que agregues o quites hojas de tu libro podrás volver a correr la
macro para -así- obtener una nueva lista.

Espero te sea de utilidad
Saludos, Cacho.

Preguntas similares