エクセルVBA実行後にファイルを自動で閉じるVBA

質問

Sub 印刷()
'
' Macro1 Macro
' マクロ記録日 : 201X/X/X ユーザー名 : AAAA
'
'
If MsgBox("実行する場合はＯＫ、間違ってこのボタンをクリックした場合はキャンセルをクリックしてください。(日付確認後、印刷のこと。)", vbOKCancel) = vbCancel Then
End

End If

'A印刷
ChDir "L:\フォルダB\X\新規"
Workbooks.Open Filename:="L:\フォルダB\X\新規\記録表\工程分析.xls"
Sheets("毎日印刷").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("月曜日印刷").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("火曜日印刷").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("水曜日印刷").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("木曜日印刷").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("金曜日印刷").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("土曜日印刷").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("日曜日印刷").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWorkbook.Save
ActiveWindow.Close

あるエクセルファイルのボタンに上記のVBAが記入されています。

そのボタンを押すと「工程分析.xls」ファイルを呼び出し各シートを自動印刷して保存して閉じるVBAです。

質問ですがボタンの配置されたあるエクセルファイルの上記VBAの処理を全て完了した後に上書き保存を自動で実行し、自動であるエクセルファイルを閉じるVBAはどの様に追加すれば良いでしょうか？

回答No.1

kkkkkm · ベストアンサー

ActiveWindow.Closeのあとに
ThisWorkbook.Close
を追加してください。

お礼

この度は素早い回答を誠にありがとうございます。
非常に助かりました。

回答No.2

kkkkkm

「上書き保存を自動で実行し」を見逃してました
ThisWorkbook.Close SaveChanges:=True
こちらに変更してください。

お礼

わざわざご連絡ありがとうございます。
非常に助かりました。