Open the "save as " dialog box at the end of a macro

[Chris L]

I want to open the "save as " dialog box at the end of a macro.

I have already created a new workbook from a named file and will need to save it as a different name and in a different place each time I run the macro. I am hoping I can open the dialog and at least point to a directory.

 

[Luke M]

At end of your code, put this line:

Application.Dialogs(xlDialogSaveAs).Show

 

[Chris L]

At end of your code, put this line:

Application.Dialogs(xlDialogSaveAs).Show

I know it's been 8 years since your reply. This has worked OK, it always opens the local drive\Documents folder.
How can I alter this to point to a server directory? (ptii-srv\customer\Final)

 

[Marc L]

Try first ChDrive and ChDir statements ...​

​