Here's some code you can use to get going: you may need to alter it to
have it perform to your specs. You can specify a folder location with
the NewPath variable; when you run this, the file is saved using the
value of cell A1 as filename. Let us know if we can provide additional
help:

Sub SaveAs()
Dim NewPath As String
Dim NewFileName As String

NewPath = "c:\"

NewFileName = Range("a1").Value

ActiveWorkbook.SaveAs Filename:=NewPath & NewFileName, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

End Sub