try something like this in a Workbook Open() event:

Private Sub Workbook_Open()
Sheets("sheet1").Select
Range("A1").Value = Range("A1").Value + 1
Range("A1").Select

End Sub


--
swatsp0p


------------------------------------------------------------------------
swatsp0p's Profile: http://www.excelforum.com/member.php...o&userid=15101
View this thread: http://www.excelforum.com/showthread...hreadid=477206