This should help get you started.

Sub InvoicePrints()

startNum = InputBox("Enter the Invoice Start Number", "Invoice Start
Number")
stopNum = InputBox("Enter the Invoice Stop Number", "Invoice Stop Number")

For i = startNum To stopNum

Range("E15").Value = i

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Next i

End Sub


HTH,
Paul
wrote in message
oups.com...
Hi

Now, please treat me like I dont know anything about VB. and you wont
be far wrong!

I have a PO spreadsheet with the PO number to be placed in cell E15.

I can place a button on the worksheet to activate a macro,

I want to be able to enter a start number in a spare cell and a stop
number in another spare cell ie the range.
eg put 4510 into "start cell" and 4559 into "stop cell".
Then I want to able to click the button (i know how to get the button
to run a macro) which then
prints off the PO's with each PO individually numbered according to
the range entered.

It would be even better to just be able to press the button and a
dialogue box(es) asks me to enter the start number and the stop number
and then prints off the POs.

Any help much appreciated.

Steve