Hi,
Try recording macro to do this and make changes in the code if needed. This was what I got while doing so.
Sub savetwice()
Application.DisplayAlerts = False 'to disable alert messages.
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Shaju\My Documents\Book1todelete).xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
ChDir "C:\Documents and Settings\Shaju\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Shaju\Desktop\Book1todelete).xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.DisplayAlerts = True 'to enable alert messages
End Sub