Excel help needed

[Tombola]

Can anyone tell me a simple method of getting Excel to produce consecutive numbers to be used as references?

I am trying to create a basic macro that will produce an invoice, and need to assign each invoice with a unique reference number each time the macro is run, with each invoice having a reference number one higher than the previous one.

If anyone knows of a fairly straightforward way of achieving this I will be extremely grateful!

Thanks.

[Tom Urtis]

Find the little Excel workbook icon just to the left of the File menu option, near the upper left corner of your workbook window. Right click on that icon, left click on View Code, and paste the following code into the large white area that is the Workbook module.

'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''

Sub Workbook_Open()
Worksheets("Sheet1").Range("A1").Value = Worksheets("Sheet1").Range("A1").Value + 1
End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''

Modify for sheet tab name and the cell you want to have your invoice number be incremented.

To return to the worksheet, press Alt+Q.