2021-02-25 セルの文字列の名前を付けて保存 Application.Dialogs(xlDialogSaveAs).Show Arg1:=Range("A1").Value 出典 名前をつけて保存にセルの文字列を入力するマクロ~すぐに役立つ3行マクロ (kokodane.com)