I am using this to run macros before and after a save event. Save &
SaveAs do the same thing. Can I have a second routine that does a Save
without asking for file and permission to overwrite?
SaveAs would be as below. TIA
____________________________________________

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
On Error GoTo PrintingOver
Application.EnableEvents = False
Call Workbook_2
Dim varResponse As Variant
varResponse = Application.GetSaveAsFilename( _
FileFilter:="Microsoft Excel Workbook (*.xls), *.xls")
If varResponse = False Then
'do nothing except exit
ElseIf varResponse = Me.FullName Then
MsgBox "Please save under a different name. "
Else
ThisWorkbook.SaveAs varResponse
End If

Call Workbook_2
PrintingOver:
Application.EnableEvents = True
Cancel = True
End Sub
-----------
by Jim Cone