Search results

Put the first parts in a module. Put the last in ThisWorkbook. Public tfSave As Boolean Sub SaveNow() tfSave = True ThisWorkbook.Save tfSave = False End Sub Sub Save(tf As Boolean) tfSave = tf End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)...