Sub A()
    ' --(1)
    Call B ' --(2)
    ' --(3)
End Sub

Sub B() ' --(2)
    ' --(4)
    MsgBox "aaa" ' --(5)
    'call元のsub Aを終了させたい"
'    ThisWorkbook.Saved = True
'    If Workbooks.Count <= 1 Then Application.Quit
'    ThisWorkbook.Close False
    ' --(6)
End Sub

Sub AB()
    ' --(1)
    ' --(4)
    MsgBox "aaa" ' --(5)
    ' --(6)
End Sub