Home » Forums » Open Source Learning Center » Question and Answer

Adding New Worksheets AFTER

Submitted by Roger Johnson on 10 May, 2011 - 10:45
The Excel Manual states that new worksheets are added AFTER the first. My macro is adding them BEFORE!! What am I doing wrong!! 
Sub CreateNewWorksheet()
    Dim strX
    Dim oSheet As Worksheet
    Dim strName
    Worksheets("Members").Range("E2").Select
    strName = Worksheets("Members").Range("B2") & " " & _       Worksheets("Members").Range("A2")
    strX = (Right(ActiveCell.Value, 6))
    Set oSheet = Worksheets.Add
    With oSheet
         .Name = strName
         .Cells(1.1).Select
         .Activate
     End With
    End Sub
This is my first foray into macros. So apologies in advance. Roger
‹ How to use Case Statements (about 30) on Multiple Rows of Data? Dynamic Updates in Excel ›
»

When you add, you can specify

Submitted by backwards on 10 May, 2011 - 13:21.
When you add, you can specify which sheet you want to add it after. Add(Before, After, Count, Type) This adds after: 
Set oSheet = Worksheets.Add(, Worksheets("Members"))
»