Macro para nombre de hojas

26/02/2008 - 21:08 por JON | Informe spam
Hola a todos y antes de nada muchas gracias por vuestra ayuda.

Mediante una MACRO, quiero saber el numero de hojas que tiene un libro y el
nombre de cada una de ellas. Conozco la existencia de Activesheet.Name, pero
esto me da el nombre de la hoja activa. Imagino que existe algo similar para
todas las hojas del libro o que de alguna forma se puede hacer para recorrer
todas las hojas del libro. Al final quiero almacenar en un vector los nombres
de todas las hojas del libro.

A ver si alguien puede echarme un cable.

Para cualquier duda adicional me decís.

Saludos,

Jon.
 

Leer las respuestas

#1 Ivan
27/02/2008 - 01:18 | Informe spam
hola Jon

prueba a pegar esto en un modulo NORMAL (no de hoja ni en thisworkbook
ni de clase)

Sub NombresHojas()
Dim n As Integer, msj As String
For n = 1 To Worksheets.Count
msj = msj & vbCrLf & "el nombre de la hoja Nº " _
& n & " es " & Worksheets(n).Name
Next
MsgBox msj
End Sub

y ejecutalo como prefieras

OJO: te devuelve las hojas del libro activo en el momento de
ejecutarla, que no tiene por que ser el que contenga la macro

espero te ayude

un saludo
Ivan

Preguntas similares