save & backup file

S

Seeker

I have following code recorded, how could I
1) save workbook without message box prompt to overwrite the existing file
name
2) synchronization content in backup file

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Don\My Documents\Book1.xls",
FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=True
ActiveWorkbook.Close (True)
Rgds
 
J

Jacob Skaria

Try

Application.DisplayAlerts = False
'SaveAs code
Application.DisplayAlerts = True
 
Top