Morning everyone,

A coworker came to me with a problem and I could use some help solving.

From time to time we print a large number of documents that need individual serial numbers. Our current method is to open the workbook, type in the serial number, print, delete serial number, and repeat. I'm thinking there should be a way to click a macro button, have a window pop up asking for the starting serial number and ending serial number and then let it fill in the serial numbers and print. Here is the code I have come up with so far.

Sub Button1_Click()
Dim SN_Start, Digit as Integer
Dim SN_Stop, Digit as Integer

SN_Start = Application.InputBox(Prompt:="Enter starting serial number",Title:="Work order mass print", Default:="0001", Type:=1)
SN_Stop = Application.InputBox(Prompt:="Enter stopping serial number",Title:="Work order mass print", Default:="0001", Type:=1)

Sheet1.Range("D22").Value = Range("D22").Value + 1

I'll admit that it's been a long time since I've programmed anything so I could really use the help.

Thanks
Jon