Saving an Excel Wookbook to a Variable?

[RMS]

I have an Excel worksheet that I use often. I save it to a file using the
clients last and first name as the file name. Since the client's name is in
a known Cell in the worksheet, it would be nice to assign the cell a
variable name and save the workbook to that name. This would save time and
help avoid typo's.

Oddly , the highly authoritative "VBA for Dummies" is strangely silent on
this issue.

Thanks, RMS

 

[Nigel]

Try using this code, it opens the save dialog with the text from cell A1 as
the default name.

Sub mysave()
Dim fname
fname = Application.GetSaveAsFilename(InitialFileName:=Range("A1"), _
filefilter:="Excel Files (*.xls), *.xls", _
Title:="Save Workbook")
End Sub