save & backup file

[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

 

[Jacob Skaria]

Try

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

 

[Jacob Skaria]

Try

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