Neil,
the following code fragment should work:

ThisWorkbook.SaveAs Filename:=Range("A1")

Otherwise post the code you are using. What kind of error are you
getting?

HTH
Kostis Vezerides