Sub エクセルファイルを保存して閉じる()

    Workbooks("ファイル名").Close SaveChanges:=True

End Sub