Vi esto en unas preguntas y me pregunto.. Muy preguntoso Sub imprimir() For i = 1 To 5 Range("E4").Value = "Hoja Preparación N° " & Format(i, "A00000") ActiveSheet.PrintOut Next End Sub Cambia el 5 por el número de hojas que desees imprimir. Cambia...