ExcelBanter - Worksheet Position

Where do I add this in the code to make it work?
-----Original Message-----
There's a parm you can add to the worksheets.add. (Look
at VBA's help for more
info)

but this is one way:

With ActiveWorkbook.Worksheets
Set shar = .Add(after:=.Item(.Count))
End With

Todd Huttenstine wrote:

The below code creates a new sheet, however when the new
sheet is created, it is placed in the first sheet
position. I would like the newly created sheet to be
placed at the end of all the other sheets. How do I do
this?

Thanx

Private Sub CommandButton1_Click()
Dim sha As Worksheet
Dim shar As Worksheet

Set sha = Worksheets(1)
Set shar = ActiveWorkbook.Worksheets.Add

sha.Cells.Copy

shar.Cells.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False

shar.Cells.PasteSpecial Paste:=xlPasteFormats, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False

shar.Name = sha.Range("E2").Value

ActiveWindow.DisplayZeros = False
Worksheets(2).Select
End Sub

--

Dave Peterson

.