César Mera respondió:
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...