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


Placed in the thisworkbook module

See Chip Pearson's page on events
http://www.cpearson.com/excel/events.htm

--
Regards,
Tom Ogilvy


"jinvictor" wrote
in message ...

how can i know howm many times the workbook had been opened?
say in A1 shows how many times.


--
jinvictor
------------------------------------------------------------------------
jinvictor's Profile:
http://www.excelforum.com/member.php...o&userid=34099
View this thread: http://www.excelforum.com/showthread...hreadid=553052