Use Cell text as file name, via macro

[mmcnown]

I am trying to get a macro to pull a string from a cell in the ActiveSheet and use that string as the file name of the ActiveWorkbook. I have gotten the following to work in the macro, but want "Blank-proxy1.xls" to be the text pulled from cell A1 of the current worksheet.

ActiveWorkbook.saveas Filename:="C:\Proxy\Blank-proxy1.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Thanks in advance!

Mike

[kraljb]

myBookName = Range("A1").Value
ActiveWorkbook.saveas myBookName:= sFile & ".xls"