Macro syntax "Save As" with filename from cell ref.

[magnus.ferman]

Hi, I'm looking for a macro syntax that allows me to SAVE AS with
number copied from a cell reference.
(see below "PASTE HERE FROM COPY")
Thanks in advance / Magnus
..............
Application.Goto Reference:="R1C1"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
ActiveWorkbook.SaveAs Filename:=PASTE HERE FROM COPY,
FileFormat:=xlNormal _
, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

 

[John Bundy]

Is it the activecell? If so
ActiveWorkbook.SaveAs Filename:= activecell.text