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

-----Original Message-----
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.

.