View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Bassman62 Bassman62 is offline
external usenet poster
 
Posts: 117
Default SaveAs Confict Resolution, Failure

Sorry, I neglected to state the failure.
The line - NewWB.SaveAs NewWBName, FileFormat:=56, CreateBackup:=False
causes Run-time error'1004': Method 'SaveAs' of object '_Workbook' failed

"Bassman62" wrote in message
...
Greetings,
Using xl2007
Code:
NewWBName =
Application.GetSaveAsFilename(InitialFileName:="0-Job.xls", _
filefilter:=" Excel 2000-2003 Workbook (*.xls), *.xls,")
If NewWBName = False Then
Range("Date").Activate
Application.ScreenUpdating = True
Exit Sub
Else
NewWB_Setup 'Create a copy of "Report" and convert formulas to
values
' Save new file as 2000-2003 format from version 2007.
NewWB.SaveAs NewWBName, FileFormat:=56, CreateBackup:=False
End If

The above code works well except if the file name already exists and the
user selects 'No' or 'Cancel' from the Conflict Resolution Dialog box.
| A file named '...\0-Job.xls' already exists in this location. Do you
want to replace it?
| Yes / No / Cancel

How can I change my code to handle those selections?
Thanks.