Como vc nao disponibilizou o arquivo teste esse codigo
O numero do Codigo esta na Celula A1
Sub Imprimir()
Dim ContInicial As String
Dim ContFinal As String
Dim Cont As Long
Dim A As Long
ContInicial = Application.InputBox("Digite o Codigo Inicial", "Numero Inicial")
ContFinal = Application.InputBox("Digite o Codigo Final", "Numero Final")
For A = ContInicial To ContFinal
Cont = A
Cells(1, 1).Value = Cont
ActiveSheet.PrintOut
Next
End Sub
Marcelo Prudencio
Microsoft Excel Brasil no Facebook
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.
Postado : 03/05/2016 10:00 am