ActiveWorkbook.SaveAs Filename:=Range("A1").Value

Ian

"CG" wrote in message
...
I am trying to use a macro to save workshets under a name contained within
a
cell in the worksheet. The result will be "push a button and the shhet is
saved with a name that is contained in the sheet".