This will increment cell A1 in worksheet Sheet1:

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

This event macro goes in the workbook code area.
--
Gary''s Student - gsnu200789


"gaby elia" wrote:

if we have a file in excel and there is a cell starting in number 1 and when
i want to close this sheet and reopen it again i wanna be 2 by auto ,so each
time i open this file i wanna this number to be increased automatically