Hi -

Try the following please and see if that works.

-good luck



Sub dlg_test1()
Const c_fType = ".xls"

Dim var_FileName As Variant
Dim sNewFile As String

var_FileName = Empty
sNewFile = "MyNewFile" & c_fType

var_FileName = Application.GetSaveAsFilename( _
InitialFileName:=sNewFile, _
fileFilter:="Microsoft Excel Workbook (*" & c_fType & "), *" &
c_fType, _
Title:="MyApp Save As...")

If var_FileName = False Then Exit Sub
If Len(CStr(var_FileName)) = 0 Then Exit Sub


' DO WHATEVER HERE


var_FileName = Empty

End Sub



"OssieMac" wrote:

I don't understand John.
Your question was "Is it possible to open the file save as dialog window and
change the name of the file from the current name?"

You can change the file name in the dialog box as well select the location
for the file.
--
Regards,

OssieMac


"John Keith" wrote:

On Tue, 17 Feb 2009 20:04:01 -0800, OssieMac
wrote:

Hi John,

Is this what you are looking for?

Application.Dialogs(xlDialogSaveAs).Show

Not quite. That opens the dialogue box which is what I need in order
to let a user select the location but I want to set the filename to
something different than what the current workbook name is.



John Keith