|
Que tal henrype, este código copia lo que deseas en la última hoja del libro activo.
Sub LIBROS_HOJAS()
Worksheets(Worksheets.Count).Select
Range("A1").Select
ActiveCell.Value = "LIBROS"
ActiveCell.Offset(0, 1).Value = "HOJAS"
For Each wb In Workbooks
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = wb.Name
'wb.Activate
For Each ws In wb.Worksheets
ActiveCell.Offset(0, 1).Value = ws.Name
ActiveCell.Offset(1, 0).Select
Next ws
Next wb
End Sub
Te agradezco finalizar la pregunta con una valoración acorde a la calidad y oportunidad de la respuesta.
Cordialmente,
CESAR MERA
|
