Excel SaveAs Command 1

[bearnone]

I wish to setup a button on a spreadsheet that will act as a saveas command. Moreover, I want the button to offer the user the ability to save the active worksheet to a location they dictate.

Thanks for any help.

 

[Stretchwickster]

Use the Control Toolbox (from the Visual Basic toolbar which can be activated from the View menu) and drop a command button on the sheet. Bring up the properties of the button and set the caption to "Save As". Double click the button and you'll be taken to the portion of code that acts as an OnClick event of the button. In here you could use :

Application.Dialogs(xlDialogSaveAs).Show

Clive