Contar Hojas

dim hoja as object
msgbox "hay " & thisworkbook.sheets.count & " hojas en esten libro"
for each hoja in thisworkbook.sheets
msgbox hoja.name
next

si solo quieres la hojas de calculo (no las hojas de graficos), cambia
sheets por worksheets

"Paco" escribió en el mensaje
news:

Hola a todos!
Tengo una duda, espero que alguno de ustedes me pueda ayudar.
Con una Macro de que forma puedo saber cuantas hojas hay en un libro y que
nombres tienen.

Lo que quiero hacer, es que de una lista me genere las hojas con sus
respectivos nombres.

Gracias de antemano.

saludos desde mexico

Hola Paco, tambien puedes usar este codigo q me proporcionó KL, lo tienes q
insertar en un modulo

'-Inicio Codigo--
Sub ListarHojas()
Dim i As Integer
Dim hIndice As Worksheet
Dim h
Dim hTipo As String
Dim hVisible As String
Dim hProtegida As String

Set hIndice = ActiveWorkbook.Worksheets(1)

With hIndice
.Cells(1, 1) = "Nombre"
.Cells(1, 2) = "Tipo"
.Cells(1, 3) = "Visible"
.Cells(1, 4) = "Protegida"
.Range("1:1").Font.Bold = True
i = 2
For Each h In ActiveWorkbook.Sheets
If h.Type = 3 Then
hTipo = "Grafico"
Else
hTipo = "Hoja de calculo"
End If
If h.Visible = xlSheetVisible Then
hVisible = "Verdadero"
Else
hVisible = "Falso"
End If
If h.ProtectContents Then
hProtegida = "Verdadero"
Else
hProtegida = "Falso"
End If
.Cells(i, 1) = h.Name
.Cells(i, 2) = hTipo
.Cells(i, 3) = hVisible
.Cells(i, 4) = hProtegida
i = i + 1
Next h
End With
End Sub
'-Fin Codigo--

"Paco" escribió en el mensaje
news:

Hola a todos!
Tengo una duda, espero que alguno de ustedes me pueda ayudar.
Con una Macro de que forma puedo saber cuantas hojas hay en un libro y que
nombres tienen.

Lo que quiero hacer, es que de una lista me genere las hojas con sus
respectivos nombres.

Gracias de antemano.

saludos desde mexico