ExcelVBA 確認無しで上書き保存 

    '警告メッセージを表示しない
    Application.DisplayAlerts = False
    ActiveWorkbook.Save
    '警告メッセージを表示
    Application.DisplayAlerts = True

ネタ元

excel-toshokan.com