VBA Auto_Close複数ブックを閉じれない

質問

Auto_Closeについて教えて下さい。
Auto_Closeで、指定のブックを一緒に閉じる処理を
書きましたが、エクセル自体を終了できません。
Workbook_BeforeCloseでも試しましたが、うまく処理
できません。エクセル本体も終了させたいです。
どのように記述したらよいでしょうか？

宜しくお願い致します。

コード
Private Sub Auto_Close()

'指定のブックを閉じる(すでにAAAファイルは開いている状態）
Application.Windows("AAA.xlsx").Close False
Application.Quit

End Sub

回答No.1

eden3616

どぞ。

Private Sub Auto_Close()
'AAAが開いていないとエラーになるため
On Error Resume Next
'AAA.xlsxを閉じる
Workbooks("AAA.xlsx").Close
End Sub