A simple problem...

  • Thread starter Thread starter Chris Gorham
  • Start date Start date
C

Chris Gorham

Hi,

just trying to add a worksheet behind an existing one and
naming it.
trying this:

Sheets.Add Type:=Worksheet, count:=1, after:=Sheets
(Origsheet)

but I'd like to assign a name to it (in the same
statement...must be possible..!!)

Thks

Chris
 
One way:

Worksheets.Add(After:=Sheets(Origsheet)).Name = "Fred"

Where OrigSheet contains either an index number or a sheetname as a
string.
 
Try:

Private Sub CommandButton1_Click()
Dim shtNew As Worksheet
Set shtNew = ActiveWorkbook.Worksheets.Add
(After:=Worksheets(Worksheets.Count))
shtNew.Name = "New Sheet"
End Sub

HTH.

-Brad
 
Back
Top