How do I in excel print consecutive numbers from one form?

I am designing a form that requires consecutive numbers on each form, like a
certificate which requires a new number each time you print one form and it
has been set up in Excel. How is this set up. If I print 100 forms, I want
each form to have consecutive numbers. Is it possible?

You can use this macro to get the job done. I am not sure this is the best way, but if it works!

=======copy======================

Sub PrintForms()
Dim copies As Integer
Dim MyInput As Integer

MyInput = InputBox("How many forms do you want to print?")

For copies = 1 To MyInput
Cells(50, 8).Select 'this will be where you want to form number to appear

ActiveCell.Value = copies 'this assumes you want to start with #1. You can
'change this to ActiveCell.Value=ActiveCell.value +1
'and manually set the first
'form number before you run the macro

ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=True
Next copies

End Sub

=========copy==============================

Originally Posted by sjamdavies

I am designing a form that requires consecutive numbers on each form, like a
certificate which requires a new number each time you print one form and it
has been set up in Excel. How is this set up. If I print 100 forms, I want
each form to have consecutive numbers. Is it possible?