---

Add Excel Worksheets in Month/Monthly Sequence

Add Worksheets to Excel in Month Sequence/Order. Add Excel Worksheets in Monthly Sequence

Got any Exce/VBA Questions? Free Excel Help.

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

 

قم بتنزيل ومشاهدة مقاطع الفيديو الإباحية على الإنترنت بترجمة روسية ، أفضل المواد الإباحية مع ترجمة روسية بجودة HD ممتازة و Full HD. سكس مترجم لدينا اقوى افلام سكس اجنبي مترجم احترافي بجودة عالية وبقصص ساخنة

See also:

Add Excel Worksheets in Numeric Sequence

Add Worksheets to Excel via VBA

 

Free Training Course: Lesson 1 - Excel Fundamentals

 

See also: Index to Excel VBA Code; Index to Excel Freebies; Lesson 1 - Excel Fundamentals; Index to how to… providing a range of solutions

 

Click here to visit our Free 24/7 Excel/VBA Help Forum where there are thousands of posts you can get information from, or you can join the Forum and post your own questions.

 

Gallery

---

• 
• 
• 
• 
• 
•