Worksheets.Add(After:=worksheets( _
worksheets.count)).Name = Activesheet.Range("B9").Value

or
sName = Activesheet.Range("B9").Value
Worksheets.Add(After:=worksheets(worksheets.count) )
Activesheet.Name = sName


--
Regards,
Tom Ogilvy



GREG CARTER wrote in message
...
I want to add a worksheet to the workbook with a specific
name that is in a cell on an existing worksheet.
How can this be done??

Thanx ahead,
G. Carter