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

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.