Steve,

Get rid of the quotes in

"ActiveWorkbook.WorkSheet("Sheet1").Cells(3, 4)"

For example,

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\user\My documents\" & _
ActiveWorkbook.Worksheet("Sheet1").Cells(3, 4) & _
".xls"


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"Steve" wrote in message
...
Hello,
I know that this is an easy question, and is perhaps due
to my Syntax (or at least that is the error I am getting).
I am trying to write a SaveAs function which would save
the Excel workbook using a reference to a cell. For
example, I would like to save the file as "***.xls", where
*** is the information contained in cell C4. So far I
have been trying to use the following, but it is not
working...

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\user\My documents\"
& "ActiveWorkbook.WorkSheet("Sheet1").Cells(3, 4)"
& ".xls",