Matt,
I don't have a version of Excel that supports this method, but :
Dim Retval As Variant
With Application
Retval = .GetSaveAsFilename()
If Retval < False Then
On Error Resume Next
'.EnableEvents = False
ThisWorkbook.SaveAs Retval
'.EnableEvents = True
On Error GoTo 0
End If
End With
'Cancel = True

Uncomment the lines above if this is in a _BeforeSave event, to prevents the
second firing.

NickHK

"MattM" wrote in message
...
Hi, I am trying to do something very simple: code up a "Save as" dialog
with
a default filename. The code below nearly works.

With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = "C:\Temp\Test.xls"
If .Show = -1 Then
.Execute
End If
End With

The problem is that if the file already exists, the user is asked a "do
you
wish to overwrite?" question *twice* - the first time by the dialog and
the
second by VBA on the "Execute". If the user responds "yes" followed by
"no",
they get a runtime error "Method 'Execute' of 'FileDialog' failed."
What am I doing wrong?
I am using Excel 2002 Sp-2

Thanks in advance
MattM