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