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

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Dingbat" wrote in message
...
Hi all

I have an excel spreadsheet that contains a field that we at present
manually update and therefore have to keep checking the last sequence
number
used.
I would like to somehow create a way to auto update the field so that when
opened the file will update the number (similar to purchase order
sequencing). The field will also need to be secure so that it cannot be
over
written.

Any idea's ?