Saving workbook from vba

[Don]

I am wanting to save a workbook from a command button on
the first sheet. How can I bring up the save-as dialog
window in vba ? This can be used by anyone using the file
to save wherever he wishes with any file name.
Many thanks in advance for any assistance.

 

[Patrick Moloy]

Sub SaveTheFile()
Dim FN As String
FN = Application.GetSaveAsFilename()
If UCase(FN) = "FALSE" Then Exit Sub
ThisWorkbook.SaveAs FN
End Sub

Patrick Molloy
Microsoft Excel MVP