Save WB from reference found in cell D1 to specific folder

I wonder if it is possible to save a spreadsheet as the name displayed in
cell D1 (this is a 'reference' from another spreadsheet, ie, =customers!a2)
and have it saved directly to a hard drive folder. For example:

c:\my documents\orders


Thanks!

Dim s as String
s = Activesheet.Range("D1").Text
Activeworkbook.SaveAs "C:\My documents\order\" & s & ".xls"

--
Regards,
Tom Ogilvy


"Annette" wrote:

> I wonder if it is possible to save a spreadsheet as the name displayed in
> cell D1 (this is a 'reference' from another spreadsheet, ie, =customers!a2)
> and have it saved directly to a hard drive folder. For example:
>
> c:\my documents\orders
>
>
> Thanks!
>
>
>
>