D Dave D-C Dec 8, 2007 #2 What you want is Private Sub Workbook_Open() ' in ThisWorkbook module Sheets("Sheet1").Cells(1, 1) = Sheets("Sheet1").Cells(1, 1) + 1 End Sub
What you want is Private Sub Workbook_Open() ' in ThisWorkbook module Sheets("Sheet1").Cells(1, 1) = Sheets("Sheet1").Cells(1, 1) + 1 End Sub