extraer listado hojas

prueba este, copialo en un modulo

Sub ListSheetNames()
Dim s As Variant
Dim Counter As Integer
Counter = 1
With ThisWorkbook
For Each s In .Sheets
.Sheets("Sheet1").Cells(Counter, 1) = s.Name
Counter = Counter + 1
Next s
End With
End Sub



"fredy" wrote in message
news:

hola...

quisiera saber si alguien sabe el codigo para poder listar las hojas que
contiene un archivo de excel

de antemano muchas gracias