Incrementing numbers problem

[AJ]

I have a workbook that has a sheet1 with product information, something like
this
Prod Length width Code
A 10 20 001
B 5 3 001

On another sheet I have a control that lets you select the Product and using
lookup functions I populate that sheet2 specific to the product chosen.

Each time sheet 2 is printed I need to issue a unique lot number for that
product. Our lot code system is 900x for 9 being 2009 and 00x being the
number of lots of that specific product we have produced in the year.

Is it possible to have the code increment by 1 each time that product is
printed? Then reset back to 001 at the beginning of the year?

Thanks in advance to anyone for help.

 

[OssieMac]

Can be done with relatively simple macro code. Do you want it done this way?
If so, you should realize that the number will increment every time you
print. However, will only increment once if you print and select number of
copies to greater than one.

Also, do you need instructions for copying the code into your workbook?