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

Normally you can sort or arrange worksheet tabs order in Excel by dragging and dropping the sheet tabs on the sheet tab bar. But for getting this done with multiple worksheets, you may consider the following tricky ways to quickly sort worksheets in alphabetical / alphanumeric order in a large workbook.

Sort worksheets in alphabetical / alphanumeric order with VB code

Sort worksheets in alphabetical / alphanumeric order with Kutools for Excel

Kutools for Excel: add 120 new features in Excel. Save one hour every day.
Classic Menu for Office: brings back classic menus to Office 2010 and 2013 (includes Office 365).
Office Tab: brings tabbed interface to Office as the use of web browser Chrome, Firefox and Internet Explorer.

arrow blue right bubble Sort worksheets in alphabetical / alphanumeric order with VB code

Hot
Amazing! Using Tabs in Excel like Firefox, Chrome, Internet Explore 10!

There is a macro for sorting worksheets by alpha posted in the Microsoft Support center. We can apply it with following steps:

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

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

VBA: Sort sheets order.

Sub SortWorkBook()
'Updateby20140624
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

Step 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.

doc-sort-sheets6


arrow blue right bubble Sort worksheets in alphabetical / alphanumeric order with Kutools for Excel

If you are not familiar with macros or prefer to other ways, you can try Kutools for Excel. Kutools for Excel's Sort Sheets tool can sort all worksheets easily.

Kutools for Excel includes more than 120 handy Excel tools. Free to try with no limitation in 30 days. Get it Now.

Step 1: Click Enterprise > Worksheet Tools > Sort Sheets. See screenshot:

doc-sort-sheets2

Step 2: In the Sort Sheets dialog box, select one of sorting type that you need, such as Alpha Sort, Alpha Numeric Sort. See screenshot:

doc-sort-sheets3

Step 3: Click OK. Then all worksheets will be sorted in the selected way. See screenshots:

doc-sort-sheets4
-1
doc-sort-sheets5

Kutools for Excel's Sort Sheets tool can quickly rearrange all worksheets in the active workbook. It supports several sorting types, including Alpha Sort, Alpha Numeric Sort, Color Sort and Reverse. In addition, you can also move up / down worksheets, and reset the sorting. Click to know more about this utility.


Related article:

Sort worksheet tabs by color


Kutools for Excel

More than 120 Advanced Functions for Excel 2013, 2010, 2007 and Office 365.

screen shot

btn read more     btn download     btn purchase

Add comment


Security code
Refresh