Sorry, I wasn't careful enough, didn't see you hade the Range as well

ActiveWorkbook.SaveAs "C:\files\" & Range("A1").Value & "\" & _
ActiveWorkbook.Name

--

HTH

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


"Pinda" wrote in message
...
Bob,

Thanks again for the help, but the code you've given does not save the
file
in the subfolder (old), it just adds "rangeold" to the front of the
filename
and saves it in c:\files.


So if the file is called test.xls, it will now be called rangeoldtest.xls.

I want the file to be saved in the subfolder "old" if cell A1 contains the
text "old", or the file to be saved in the subfolder "new" if cell A1
contains the text "new"


Thanks again,

Pinda.

"Bob Phillips" wrote:

Close !

ActiveWorkbook.SaveAs "C:\files\Range" & Range("A1").Value &
ActiveWorkbook.Name


--

HTH

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


"Pinda" wrote in message
...
Hello,

The following code saves the active workbook in c:/files

ActiveWorkbook.SaveAs "C:\files\" & ActiveWorkbook.Name

However, I have two sub folders in c:\files,

c:\files\new\ and c:\files\old\

Is it possible to add a cell reference to the end of

ActiveWorkbook.SaveAs "C:\files\"

so I can type, for example, "old" or "new" in cell A1, and when I save
using
the above code, excel will save in the appropriate sub folder?

I have tried along the lines of:

ActiveWorkbook.SaveAs "C:\files\Range("A1")" & ActiveWorkbook.Name

but I cannot get it to work.

Thanks in advance.

Pinda.