fplaza2001

santiagomf respondió: Esta macro copia todas las páginas. Si quieres puedes quitar las que sea con una instrucción if sheets(i). name = ...... then. Option Explicit Sub copiarTodasLasPaginasEnLibroNuevo() Dim i As Integer Dim libroAct As String Dim libroNew As String Dim...