Add Excel Worksheets in Month/Monthly Sequence

NEW! More Books..

Add Excel Answers & Search To Your Google Toolbar Details

Add Worksheets to Excel in Month Sequence/Order. Add Excel Worksheets in Monthly 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 Monthly Order. See Also Add Worksheets || Add Worksheets in Numeric 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 month sequence. For example, you may need to add Worksheets, name them one month on from the last month added and have the Worksheets in the correct month position. The code below will do this

Option Explicit
Sub AddMonthSequence()
Dim wSheet As Worksheet
Dim strName As String
Dim lMonth As Long
Dim lIndex As Long

    For Each wSheet In Worksheets
        Select Case wSheet.Name
            Case "Jan", "January"
                lMonth = 2
                lIndex = wSheet.Index
            Case "Feb", "Febuary"
                If lMonth < 3 Then lMonth = 3
                lIndex = wSheet.Index
            Case "Mar", "March"
                If lMonth < 4 Then lMonth = 4
                lIndex = wSheet.Index
            Case "Apr", "April"
                If lMonth < 5 Then lMonth = 5
                lIndex = wSheet.Index
            Case "May"
                If lMonth < 6 Then lMonth = 6
                lIndex = wSheet.Index
            Case "Jun", "June"
                If lMonth < 7 Then lMonth = 7
                lIndex = wSheet.Index
            Case "Jul", "July"
                If lMonth < 8 Then lMonth = 8
                lIndex = wSheet.Index
            Case "Aug", "August"
                If lMonth < 9 Then lMonth = 9
                lIndex = wSheet.Index
            Case "Sep", "Septemeber"
                If lMonth < 10 Then lMonth = 10
                lIndex = wSheet.Index
            Case "Oct", "October"
                If lMonth < 11 Then lMonth = 11
                lIndex = wSheet.Index
            Case "Nov", "November"
                If lMonth < 12 Then lMonth = 12
                lIndex = wSheet.Index
            Case "Dec", "December"
                If lMonth < 12 Then lMonth = 12
                lIndex = wSheet.Index
            Case Else
                If lMonth = 0 Then
                  lMonth = 1
                  lIndex = wSheet.Index
                End If
            End Select
        Next wSheet
    
    If lMonth <> 0 And lMonth < 13 Then
       On Error Resume Next
        Worksheets.Add After:=Worksheets(lIndex)
        ActiveSheet.Name = Format(DateSerial(Year(Date), lMonth, 1), "mmm")
       On Error GoTo 0
    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