上書き確認メッセージを表示させない

トップページ（目次）

414.上書き確認メッセージを表示させない

Sub 上書き確認メッセージを表示させない()
    
    Application.DisplayAlerts = False 'この1行で上書き確認メッセージが出ない

    ActiveWorkbook.SaveAs Filename:="C:\test.xlsm"
    
End Sub