Hi
try

fileSaveName = Application.GetSaveAsFilename( _
InitialFilename:="Dummy.xls", _
fileFilter:="Excel Files (*.xls), *.xls")
If fileSaveName < False Then
MsgBox "Save as " & fileSaveName
End If

to set the initial name and the filetype


--
Regards
Frank Kabel
Frankfurt, Germany

Matt wrote:
I would like to set the default settings on a SaveAs Dialog box. I
have the code to set the default file SaveAs name. I would like to
also set the file type and the location. For instance, I would like
to set the default SaveAs location as my C: drive and the file type
as Excel Workbook. Here is what I have so far. Thanks. Matt

Application.Dialogs(xlDialogSaveAs).Show (fileToOpen)

Matt,

For the location, do a

ChDir "C:\"

before the GetSaveAsFilename

--

HTH

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

"Frank Kabel" wrote in message
...
Hi
try

fileSaveName = Application.GetSaveAsFilename( _
InitialFilename:="Dummy.xls", _
fileFilter:="Excel Files (*.xls), *.xls")
If fileSaveName < False Then
MsgBox "Save as " & fileSaveName
End If

to set the initial name and the filetype


--
Regards
Frank Kabel
Frankfurt, Germany

Matt wrote:
I would like to set the default settings on a SaveAs Dialog box. I
have the code to set the default file SaveAs name. I would like to
also set the file type and the location. For instance, I would like
to set the default SaveAs location as my C: drive and the file type
as Excel Workbook. Here is what I have so far. Thanks. Matt

Application.Dialogs(xlDialogSaveAs).Show (fileToOpen)

fileToOpen is the name of my file. Where would I put this in the code that you gave me? Thanks. Matt

Hi Matt
to put everything together use:

Sub foo()
Dim fileSaveName
Dim path as string
.....
ChDir "C:\"
fileSaveName = Application.GetSaveAsFilename( _
InitialFilename:=fileToOpen, _
fileFilter:="Excel Files (*.xls), *.xls")
If fileSaveName < False Then
MsgBox "Save as " & fileSaveName
End If
....
end sub


--
Regards
Frank Kabel
Frankfurt, Germany

Matt wrote:
fileToOpen is the name of my file. Where would I put this in the
code that you gave me? Thanks. Matt