Sorry I spoke to soon...I typed the code in just as you said but it still
doesn't change the number. I still don't know what I am doing wrong? Do you
have any ideas. Thanks Jennifer

"Nick Hodge" wrote:

Jennifer

You can use a Workbook_BeforePrint() event. To implement right click on the
Excel icon at the top left of the workbook (not the application icon) and
select view code. Paste it in the resulting window

You will need to change the worksheet name from ShippingData to the actual
one and the cell from A1 to whatever it is (in two places). Now each time
you *before* you print, that number will increment by 1

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "ShippingData" Then
ActiveSheet.Range("A1").Value = ActiveSheet.Range("A1").Value + 1
End If
End Sub

--

HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
DTHIS
web: www.nickhodge.co.uk
blog (non tech): www.nickhodge.co.uk/blog


"Jennifer-Houston, TX" <Jennifer-Houston,
wrote in message ...
I am trying to set of a shipping form. I want to know if there is a format
in
which I can have a number on the top of my page and it change after every
print I print. I don't know if I am explaining this well so I will give an
example:
No. 26786 for the first print and when I close it and open it again I
want
the number to change to 26787 and so on. I don't want to keep using the
same
number it will get hard to track pacakges. I believe this is possible I
just
don't know how....any help would be greatly appreciated!!! :)
Thanks,
Jennifer - Houston, TX