Why don't you check if the file exists, and rename it then?

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"John Reagan" <John wrote in message
...
ActiveWorkbook.SaveAs Filename:="C:\" & final & ".xls",
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
In the above statement can the default on the popup menu (A file named
'xxx' already exists in this location. Do you want to replace it?) which
appears when the file 'xxx' already exists, be reset to a default of "No".
When I use Application.DisplayAlerts = False the default for the above
command on the popup menu is "Yes" to overwrite the file - I want the
default to be "No" so I can rename the file under VB control.

Thanks