Worksheets.Add After:=Worksheets(Worksheets.Count)
ACtivesheet.Name = Worksheets("Sheet1").Range("A1").Value


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"AJChrumka" wrote in message
...
I would like to code a macro that creates a new worksheet at the back of a
workbook and then renames the new sheet with a name derived from the value
derived within a cell.
I initially created the macro by recording keboard commands. Unfortunately
the macro transformed the cell contents into the hard codes value within
double quotes. I want the macro to work with any value held within the
cell.