組み込みダイアログボックス（ファイル名を付けて保存）

Application.Dialogs(xlDialogSaveWorkbook).Show