Need Save As Dialog Box

[Justin Philips]

How do I get the save as dialog box to come up?

 

[Guest]

I think you can do:

fname = Application.Dialogs(xlDialogSaveAs).Show

 

[Guest]

Application.Dialogs(xlDialogSaveAs).Show

 

[Guest]

Just some added information:

fname would contain True or False based on whether the Save was successful
or not. It would not contain the name/new name of the file.

 

[Guest]

If you want more control, use
fname = Application.GetSaveAsFilename()

set the help on that function for arguments you can pass to the name.

Not that it does not perform the save. You can evaluate the user's choice
and then execute a
thisworkbook.SaveAs fName

if you agree.