Untested, but try this

ActiveWorkbook.SaveAs Filename:= _
"C:\Filename" & Range("C1").Value & " " & Range("I1").value & ".xls"
_
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Dolores" wrote in message
...
Hi,

The following code works to name a Save_As file (but I want to add data
from
two cells to the name of the file):
ActiveWorkbook.SaveAs Filename:= _
"C:\Filename.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

I want the complete file name to be made up of :
"C:\Filename " & <the string of data from merged cell C1:E1 & "
" &
<the string of data from cell I1 & ".xls" _

I don't seem to be able to retrieve data from the cells in a format that
doesn't generate error messages like "Mismatch," "Expected expression," or
"Sub or Function not defined."

I have exhausted all of my ideas and would appreciate any suggestions.
--
Dolores