Sub test()With 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 マクロボタンを押した時に、保存完了しましたと表示されるようにしたいです上記のコードに追加してもらえたらと思います

Sub test()

On Error GoTo ErrHandler

With ActiveSheet

ThisWorkbook.SaveAs Filename:=.Range(\u0026quot;A1\u0026quot;).Value \u0026amp; \u0026quot;\\\u0026quot; \u0026amp; .Range(\u0026quot;A2\u0026quot;).Value

End With

MsgBox \u0026quot;保存完了\u0026quot;, vbInformation

Exit Sub

ErrHandler:

On Error GoTo 0

MsgBox \u0026quot;保存処理は実施されませんでした\u0026quot;, vbExclamation

End Sub