add new named sheet

  • Thread starter Thread starter GREG CARTER
  • Start date Start date
G

GREG CARTER

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
 
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
 
Back
Top