Try something like

ThisWorkbook.SaveAs
filename:=Worksheets("Sheet1").Range("A1").Text


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




wrote in message
ups.com...
I am attempting to create a macro that will save a workbook with
the
file name under which I save the workbook coming from the
contents of
one of the cells in the workbook. Suppose that each time the
workbook
was altered, a specific cell (A1 on Sheet1 for instance)
contained the
desired file name for that workbook. It is my goal to create a
macro
that automatically assigns said workbook a name based on the
content of
that cell. Any help would be most appreciated.