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

One way:

Option Explicit
Sub testme01()

Dim newWks As Worksheet

Set newWks = Worksheets.Add
On Error Resume Next
newWks.Name = Worksheets("sheet1").Range("a1").Value
If Err.Number < 0 Then
MsgBox "couldn't rename sheet: " & newWks.Name
Err.Clear
End If
On Error Goto 0

End Sub



GREG CARTER wrote:

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

--

Dave Peterson

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