Const FILE_NAME = "C:\Users\wm350\OneDrive\デスクトップ\まとめ.xlsm"
Const PROC_NAME = "メニュー表示"
Dim app
Set app = CreateObject("Excel.Application")
With app
'Excel非表示
.Visible = False
Dim wb
Set wb = .Workbooks.Open(FILE_NAME)
.Run wb.Name & "!" & PROC_NAME
'アラートを消す
.DisplayAlerts = False
wb.Save
wb.Close
End With
app.Quit