The code you entered was almost right, this should work
ActiveWorkbook.SaveAs "C:\files\" & Range("A1") & "\" &
ActiveWorkbook.Name
----
Sean
"Just press the off switch, and go to sleep!"
*** Sent via Developersdex
http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!