Using the filesave dialog box

[etpeterson]

I have a spreadsheet that is a template. The user runs a macro to change the template and then needs to save the sheet elsewhere. I have a subroutine that looks like this:

Sub FileSave()
saveFile = Application.GetSaveAsFilename
End Sub

I call this at the end of my macro. How do I actually get excel to save the file?

Thanks,
Eric

 

[CraigM]

saveFile = Application.GetSaveAsFilename
If saveFile <> False Then ActiveWorkbook.SaveAs (saveFile)

saveFile is just a variant variable containing the file name and path. The "If" statement checks to ensure that the user did not click cancel.

 

[erik.van.geit]

May I add a question here?
When you choose an existing filename you will be asked to overwrite. When you then click "no" an error occurs.

Can you arrange that?
(I know it's illogic to first choose a name and then say now, but you know how users behave )

kind regards,
Erik