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!