Imrpimir n no. de veces

Que tal.
Para la pregunta que haces, lo que debemos hacer es crear
una macro que incluya la siguiente instrucción:
LO QUE HACE ESTA MACRO ES QUE TE MUESTRA UN CUADRO PARA
INSERTAR TEXTO, EL CUAL TE SOLICITA QUE INCLUYAS CUANTAS
VECES QUIERES IMPRIMIR EL FORMATO, DEPENDIENDO QUE NÚMERO
INGRESES COMENZARÁ A AUMENTAR Y A IMPRIMIR DESDE EL 1
HASTA EL NÚMERO INGRESADO. EN EL SIGUIENTE CÓDIGO DEBES
ELEGIR A QUÉ CELDA SERÁ INGRESADO EL FOLIO. ESPERO QUE SEA
DE TU UTILIDAD.

Sub uno()
Dim Imprimir As Variant
With ThisWorkbook.Sheets("Hoja1")
Imprimir = InputBox("Introduce el número de veces que se
imprimirá el consecutivo", "Aumentar número", 1)
Range("a1") = Imprimir
For i = 1 To .Range("a1") + 1
ThisWorkbook.Sheets("Hoja1").Range("a1") = (i)
MsgBox "Aquí es donde incluímos la instrucción para
imprimir" & .Range("a1")
ActiveSheet.PrintOut Copies:=1
Next i
End With
End Sub


A sus órdenes.

Tec. Inf. Sergio A Campos H

Hola a todos!!!...

Espero me puedan ayudar, quisiera saber cómo hacerle para
imprimir n no. de veces el mismo formato solo que vaya
cambiando el folio, de acuerdo al rango que le sea
indicado
.