Excelを終了する

Sub QuitSamp1()

    Dim wb As Workbook

    For Each wb In Workbooks            '開いている全てのブックに対して
        If wb.Saved = False Then wb.Save '保存されていないブックは上書き保存
    Next wb

    Application.Quit                     'Excelを終了します

End Sub

ネタ元

• https://www.moug.net/tech/exvba/0150079.html