Application Save As

[jordan2322]

Hi Guys.

I just wanted some help on getting the dialog box for 'Save As' to appear, allowing the user to manually select the save location. Then the default name to save the file as is the value in Sheets("Data").Range("A4").Value and the default file type is .xls.

Cheers

[Kelshaer]

Use this

Please Login or Register  to view this content.

[jordan2322]

Thanks for your reply Kelshaer, I'm getting the following error tho.
"Runtime error 1004, Document not saved"

Please Login or Register  to view this content.

Whys it failing on the application.dialogs line?

thnx

[jordan2322]

Found it, "xlExcel5" was causing the error, removed this and simply used

Please Login or Register  to view this content.

which seemed to work.
Thanks for your help!