I'm sure you'll need to use VBA for this. This will save the file with the
name based on the contents of A1.

Sub AutoSaveName()
ActiveWorkbook.SaveAs Range("A1").Value
End Sub


If you want to specify a save location:

Sub AutoSaveName()
ActiveWorkbook.SaveAs Filename:="C:\Temp\" & Range("A1").Value & ".xls",
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

HTH,
Paul

"cxlough41" wrote in message
...