Impresión de los nombres de las hojas

¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.

Con lo siguiente te aparecerá un mensaje por cada hoja:

Sub HojasDelLibro()

Dim unahoja As Worksheet

For Each unahoja In Worksheets

MsgBox unahoja.Name

Next unahoja

Mira a ver si esto te sirve de base para lo que necesitas.


SALUDOS.
Julián-Valencia-España
http://ijulian.iespana.es/


"Katty" escribió en el mensaje
news:

como se puede imprimir los nombres de todas las hojas?

Podrías colocar los nombres de las hojas activas en una hoja adicional,
imprimirla y luego removerla. Prueba con el siguiente código:

Sub Hojas()
ActiveWorkbook.Sheets.Add
Nombre = ActiveSheet.Name
For Each hoja In ActiveWorkbook.Sheets
If hoja.Name <> Nombre Then
j = j + 1
Cells(j, 1).Value = hoja.Name
End If
Next hoja
ActiveSheet.PrintOut
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub




"Katty" escribió:

como se puede imprimir los nombres de todas las hojas?