How to sort worksheets in alphabetical / alphanumeric order in Excel?

Sorting worksheets in Excel in alphabetical or alphanumeric order can greatly enhance the organization and efficiency of your workbook, especially when dealing with a large number of sheets. This guide will walk you through a few methods to achieve this, catering to various user comfort levels with Excel.

Sort worksheets in alphabetical / alphanumeric order with VBA code

Sort worksheets in alphabetical / alphanumeric order with Kutools for Excel

Sort worksheets in alphabetical / alphanumeric order with VBA code

The Microsoft Support Center provides a macro for sorting worksheets alphabetically. Follow these steps to apply it:

1.  Hold down the "ALT" + "F11" keys, and it opens the "Microsoft Visual Basic for Applications" window.

2.  Click "Insert" > "Module", and then paste the following macro in the "Module" Window.

VBA: Sort sheets in alphabetical / alphanumeric order

Sub SortWorkBook()
'Updateby Extendoffice
Dim xResult As VbMsgBoxResult
xTitleId = "KutoolsforExcel"
xResult = MsgBox("Sort Sheets in Ascending Order?" & Chr(10) & "Clicking No will sort in Descending Order", vbYesNoCancel + vbQuestion + vbDefaultButton1, xTitleId)
For i = 1 To Application.Sheets.Count
    For j = 1 To Application.Sheets.Count - 1
        If xResult = vbYes Then
            If UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1).Name) Then
                Sheets(j).Move after:=Sheets(j + 1)
            End If
            ElseIf xResult = vbNo Then
                If UCase$(Application.Sheets(j).Name) < UCase$(Application.Sheets(j + 1).Name) Then
                    Application.Sheets(j).Move after:=Application.Sheets(j + 1)
            End If
        End If
    Next
Next
End Sub

3.  Press the "F5" key to run this macro. In the following prompt box, click "Yes", all the worksheets will be sorted by ascending alphabetical order; and click "No", all the worksheets will be sorted by descending alphabetical order.

Sort worksheets in alphabetical / alphanumeric order with Kutools for Excel

Simplify your workflow with the "Sort Sheets" utility of "Kutools for Excel"! No matter how many worksheets you have, it effortlessly helps you organize them. It supports various sorting types, including Alpha Sort, Alpha Numeric Sort, Color Sort, and Reverse. Additionally, you can move worksheets up and down as you wish and easily reset the sorting. Make your Excel work more efficient and convenient!

1. Click "Kutools Plus" > "Worksheet" > "Sort Sheets". See screenshot:

2. In the "Sort Sheets" dialog box, select one sorting type that you need on the right pane, such as "Alpha Sort", "Alpha Numeric Sort", and then click the "OK" button.

Then all worksheets are sorted based on the specified sorting type.

This article provides two methods to sort worksheets in alphabetical or alphanumeric order: VBA code and Kutools for Excel. Choose the method that best suits your needs. The VBA code method is suitable for those familiar with scripting and offers a highly customizable solution. Meanwhile, Kutools for Excel provides a user-friendly Sort Sheets tool that quickly and efficiently arranges all worksheets without any coding required. If you're interested in exploring more Excel tips and tricks, our website offers thousands of tutorials.

Related article:

Sort worksheet tabs by color