G Guest Jan 22, 2005 #2 Private Sub Workbook_Open() Range("A1") = Range("A1") + 1 ActiveWorkbook.Save End Sub