Following works as a straightforward way to save file as whatever nam
is in C2

Dim xlsfname As String
xlsfname = Worksheets("Data").Range("C2").Value
ActiveWorkbook.SaveAs FileName:="H:\" & xlsfname & ".xls"

Please note there is NO error correction in this.

Or alternatively, if you want to specify the drive and directory t
save the file to then the following works and defaults the filename a
the date in cell C2 (Format the cell according to how you would lik
the name of the file displayed)

Dim xlsfname, xlsfpath As String
Sheets("Data").Select
xlsfname = Worksheets("Data").Range("C2").Value
xlsfpath = Application.GetSaveAsFilename(xlsfname
FileFilter:="Excel Files _ (*.xls),*.xls", FilterIndex:=1
Title:="Select Save location")
If xlspath = "False" Then
End
End If
ActiveWorkbook.SaveAs FileName:=xlsfpath & ".xls"

The only error correction in this code is if the user hits "Cancel" o
the "Select Save Location" Dialog then the procedure ends

--
Message posted from http://www.ExcelForum.com