Hi,

I think you need code like this:

Private Sub Workbook_Open()
Dim x As Long
x = Sheets("Sheet1").Range("A1")
Sheets("Sheet1").Range("A1") = x + 1
End Sub

--
Thanks,
Shane Devenshire


"Dannie" wrote:

I have a workbook that is read only and needs to have 1 cell autofilled in
with the next ascending number everytime we access the workbook.