Well that is strange. They do the same thing!

--

HTH

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


"Dolores" wrote in message
...
Hi Bob,

Thanks for attempting to help. I tested the untested code you sent, but it
does not work. (The problem has been solved, however, because the code I
received earlier from Duke Carey did work.) Thanks again.
--
Dolores


"Bob Phillips" wrote:

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