Steve

A macro will do?

Sub Number_Increment()
Dim myNum As Long
Dim iCtr As Long
myNum = 1310
For iCtr = 1 To Worksheets.Count
With Worksheets(iCtr).Range("A1")
.Value = myNum - 1 + iCtr
End With
Next iCtr
End Sub


Gord Dibben MS Excel MVP

On Fri, 27 Oct 2006 06:49:02 -0700, STEVE
wrote:

What is the simplest way to set up sequential invoice numbers in a workbook?
I have 35 Invoices. Instead of typing the Invoice number on every
invoice/sheet, can I automate the invoice numbers to start at #1310 and
increase by 1 for each invoice/sheet? (The Invoice number must be on each
sheet)