S
Seeker
Book A has following code to save and close itself and same apply to Book B,
but seems it loops back for book B to close even book B has already been
closed.
Whats wrong with it please?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Application.CalculateBeforeSave = False
If Me.Name = "CashFlow.xls" Then
ActiveWorkbook.Save
ActiveWorkbook.SaveCopyAs Filename:="C:\" & Format(Date, "ddmmmyy") &
"A.xls"
Else
End If
Workbooks("B.xls").Save
Workbooks("B.xls").Close
Application.CalculateBeforeSave = True
Application.DisplayAlerts = True
End Sub
but seems it loops back for book B to close even book B has already been
closed.
Whats wrong with it please?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Application.CalculateBeforeSave = False
If Me.Name = "CashFlow.xls" Then
ActiveWorkbook.Save
ActiveWorkbook.SaveCopyAs Filename:="C:\" & Format(Date, "ddmmmyy") &
"A.xls"
Else
End If
Workbooks("B.xls").Save
Workbooks("B.xls").Close
Application.CalculateBeforeSave = True
Application.DisplayAlerts = True
End Sub