Open the SaveAs Dialogbox

[vqthomf]

I am trying to open the SaveAs dialogbox when the user clicks on a
commandbutton. Has anybody managed to do this any help would be much
appreciated.
Regards
Charles

 

[Steve Yandl]

Application.Dialogs(xlDialogSaveAs).Show

Steve

 

[Socko]

I hope this helps. Call one of the built in dialogs.

Sub ShowSaveAsDialog()
Dim myDialog As Dialog
Set myDialog = Application.Dialogs(xlDialogSaveAs)
myDialog.Show
End Sub

Similarly, if you want to use the other 100+ dialog collection, have a
look at the list of dialog collection at : http://www.sockofiles.350.com/dialoglist.txt

I hope this helps

Selva V Pasupathy
For more on Excel, VBA, and other resources
Please visit: http://socko.wordpress.com