automatic overwrite file

[S.E.]

I am using the following code to save the Workbook with a new name. I want
to overwrite the old file by the same name. I would like to avoid getting
the dialog box asking if I want to replace "Latest Import.csv". Is there a
way to simply replace it without the dialog box?


Sheets("Manipulation").Select
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Scott\My Documents\Latest Import.csv" _
, FileFormat:=xlCSV, CreateBackup:=False

Thank you in advance,
Scott

 

[Paul B]

Scott, use this

Application.DisplayAlerts = False
'Your Code
Application.DisplayAlerts = True


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2000 & 2003
** remove news from my email address to reply by email **

 

[Tom Ogilvy]

Sheets("Manipulation").Select
Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Scott\My Documents\Latest Import.csv" _
, FileFormat:=xlCSV, CreateBackup:=False
Application.DisplayAlerts = True