Activeworkbook.SaveAs Filename:=Activesheet.Range("A1").Value

--

HTH

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


"Sandy" wrote in message
...
I have a spread sheet which I would like to save as the value in Cell A1 -
see below.
A B
1Stage No 18 - Sat, Nov 19, 2005
2
3

The Stage No 'X' is generated by a workbook_open sub, and I would just
like
to close the book if possible and save it as the value of A1. Is it
possible?