Have you tried:

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs ....
Application.DisplayAlerts = True

?
Bill Manville
MVP - Microsoft Excel, Oxford, England
No email replies please - respond to newsgroup