'-------------------------

シートを別名Bookで保存し、マクロも閉じる。

'新規BOOKに全シートコピー

Worksheets.Copy

'名前をつけて保存

ActiveWorkbook.SaveAs Filename:=ファイルパス

ActiveWorkbook.Close (True)

'Excelを閉じる（Excel閉じる→Book閉じるの順）

Application.Quit

'マクロも保存せずに閉じる

Windows("マクロ.xls").Close (False)