About Us

todd

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

.

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Add worksheet at end or last position	Brent E	Excel Discussion (Misc queries)	4	August 18th 08 10:38 PM
Worksheet Tas position	fgwiii[_2_]	Excel Discussion (Misc queries)	2	April 2nd 08 09:39 PM
how do I fix the position of a worksheet in excel?	MartyMac	Excel Worksheet Functions	1	December 15th 06 06:07 PM
Set position into a worksheet using vba	Ricardo Mercader	Charts and Charting in Excel	2	October 22nd 05 07:09 PM
How do you identify if a worksheet is in the last position in a Macro?	Natasha[_2_]	Excel Programming	2	August 8th 03 03:32 AM

Menu

About Us