エクセルVBA実行後にファイルを自動で閉じるVBA
Sub 印刷()
'
' Macro1 Macro
' マクロ記録日 : 201X/X/X ユーザー名 : AAAA
'
'
If MsgBox("実行する場合はOK、間違ってこのボタンをクリックした場合はキャンセルをクリックしてください。(日付確認後、印刷のこと。)", 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はどの様に追加すれば良いでしょうか?