Add Excel Worksheets in Numeric Sequence

NEW! More Books..

Add Excel Answers & Search To Your Google Toolbar Details

Add Worksheets to Excel in Number Sequence/Order. Add Excel Worksheets in Numeric Sequence

Current Special! Complete Excel Excel Training Course for Excel 97 - Excel 2003, only ~~$145.00~~. $59.95 Instant Buy/Download, 30 Day Money Back Guarantee & Free Excel Help for LIFE!

Got any Excel Questions? Free Excel Help .

Lot's More: Excel VBA Add Excel Worksheets in Numeric Order. See Also Add Worksheets || Add Worksheets in Month Order || Add Sheets in Weekday Order || Sort Excel Sheets/Worksheets

There are occasions where adding a new Worksheet to an Excel Workbook should be added in a number sequence. For example, you may need to add Worksheets, name them in a numeric order and have the Worksheets in the correct numeric position. The code below will do this

Sub AddNumberSequence()
Dim wSheet As Worksheet
Dim lNum As Long
Dim lIndex As Long

    For Each wSheet In Worksheets
            If IsNumeric(wSheet.Name) Then
                lNum = wSheet.Name + 1
                lIndex = wSheet.Index
            End If
    Next wSheet
    
    If lNum <> 0 Then
      Worksheets.Add After:=Worksheets(lIndex)
      ActiveSheet.Name = lNum
    End If
    
End Sub

Excel Dashboard Reports & Excel Dashboard Charts 50% Off

Special! Free Choice of Complete Excel Training Course OR Excel Add-ins Collection on all purchases totaling over $64.00. ALL purchases totaling over $150.00 gets you BOTH! Purchases MUST be made via this site. Send payment proof to special@ozgrid.com 31 days after purchase date.

Instant Download and Money Back Guarantee on Most Software

Excel Trader Package Technical Analysis in Excel With $139.00 of FREE software!

Microsoft Ž and Microsoft Excel Ž are registered trademarks of Microsoft Corporation. OzGrid is in no way associated with Microsoft