Auto incrementing barcodes

[tnewt]

I have a spreadsheet that prints barcode sheets and would like to automate the printing with a macro if it is possible.
A1 contains my starting number that is used in conjunction with several formulas and used in the actual barcode.
A2 is the last number I would like a loop to print to.
I use a macro called printbarcode.
Is there a way to write a macro that would look at A1 and make sure it is < A2 then run the printbarcode macro then add 1 number increments updating A1 looping until it = the number in A2? Any guidance to the information to help me work thru the solution to this problem would be very much appreciated.

 

[Jerry Sullivan]

You could try something like this...

Sub Increment_A1()
    With Sheets("Sheet1")
        While .Range("A1") < .Range("A2")
            printbarcode
            .Range("A1") = .Range("A1") + 1
        Wend
    End With
End Sub
 
Function printbarcode()
    'Your macro here
End Function

 

[tnewt]

Works perfectly thanks for the help.