Pages

Friday, March 23, 2012

BeforeSave event for a workbook

BeforeSave event for a workbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    Sheets("sheet1").Range("A1").Value = Sheets("sheet1").Range("A1").Value + 1

End Sub

 

No comments:

Post a Comment