.Parent.SaveAs Filename: Without Prompting To Replace File

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

How do I modify the current VBA script listed below to automatically
writeover the MATERIAL_ORDERS.xls file each time without prompting do you
have to replace this file.

Thanks so much for the help.



Set ActWkbk = ActiveWorkbook

ActWkbk.Worksheets("MATERIAL ORDERS").Copy
With ActiveSheet
.Parent.SaveAs Filename:=ActWkbk.Path & "\" & "MATERIAL ORDERS.XLS"
End With
 
Just wrap an Application.DisplayAlerts=False around the saveas code.
Don't forget to toggle it back on immediately afterwards though!

Set ActWkbk = ActiveWorkbook


ActWkbk.Worksheets("MATERIAL ORDERS").Copy
Application.DisplayAlerts=False
ActiveSheet.Parent.SaveAs Filename:=ActWkbk.Path & "\" & "MATERIAL
ORDERS.XLS"
Application.DisplayAlerts=True
 
Back
Top