how do I set up and cell for incermental steps by 1 each time a spreadsheet
is opened for quoting?

Hi,

You need to use code:

Private Sub Workbook_Open()
Sheets("Sheet1").[A1] = Sheets("Sheet1").[A1]+1
End Sub

1. To add this code to your file, press Alt+F11,
2. In the VBAProject window, top left side, find the "thisWorkbook" object
under your file name and double click it.
3. Paste in or type the code above.

--
If this helps, please click the Yes button.

Cheers,
Shane Devenshire


"Jim" wrote:

how do I set up and cell for incermental steps by 1 each time a spreadsheet
is opened for quoting?

Hi,

You could do this

Private Sub Workbook_Open()
Sheets("Sheet1").Range("A1").Value _
= Sheets("Sheet1").Range("A1").Value + 1
End Sub

or have a look at JE McGimpsey's site

http://www.mcgimpsey.com/excel/udfs/sequentialnums.html

Mike

"Jim" wrote:

how do I set up and cell for incermental steps by 1 each time a spreadsheet
is opened for quoting?