Sub test() Application.DisplayAlerts = FalseWith ActiveSheet ThisWorkbook.SaveAs Filename:=.Range(\u0026quot;A1\u0026quot;).Value \u0026amp; \u0026quot;\\\u0026quot; \u0026amp; .Range(\u0026quot;A2\u0026quot;).Value End With Application.DisplayAlerts = True End Sub このコードをマクロボタンに登録すると、指定したフォルダ先に指定したファイル名で現状使用しているシートが名前を付けて保存されるのですが、同一のファイル名がある場合、上書き保存されてしまいます。 もし同一のファイル名がある場合は、同一の物がありますが、上書きしても大丈夫ですかと聞かれるようなワンクッションが欲しいです あとマクロボタンを押した時に、保存完了しましたと表示されたいです