Actividad pública reciente
Ha valorado "Buena" la respuesta
Libros Abierto
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...
Ha empezado a seguir a

