Excelを終了する

excelvba 
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

ネタ元