How to quickly rearrange your worksheets in alphabetical order

Are you looking for a shortcut to quickly rearrange your worksheets in alphabetical order? Instead of dragging and manually arranging your worksheets, you can use VB for Microsoft® Excel® to quickly rearrange them into alphabetical order.
Excel currently has no built-in function to rearrange your worksheets. Therefore, if you have a workbook with many worksheets, the task of rearranging them may become long and drawn out, but luckily there is a way for this to be simplified. Follow our step by step instructions on how that can be done.
You are welcome to download the workbook to practice.
Applies to: Microsoft® Excel® 2013 and 2016.
Press ALT + F11 to open VB for Excel.
From the Menu bar, Select Insert–Module.
On the right hand side, copy & paste the Visual Basic coding below:
Sub SortWorksheets()
‘ sort worksheets in a workbook in ascending order
Dim sCount As Integer, i As Integer, j As Integer
Application.ScreenUpdating = False
sCount = Worksheets.Count
If sCount = 1 Then Exit Sub
For i = 1 To sCount – 1
For j = i + 1 To sCount
If Worksheets(j).Name < Worksheets(i).Name Then
Worksheets(j).Move Before:=Worksheets(i)
End If
Next j
Next i
End Sub

From the Menu bar, select File, Close and Return to MS Excel.
Press ALT + F8 to get a list of macros.
Select Sortsheets.
Select Run.
N.B:
When saving the workbook, Save As Macro Enabled Workbook.
Ensure that you set the appropriate macro security level:
Select the File Tab
Select the Excel Options button
On the left side of the dialogue box, select Trust Centre
On the right side, select the Trust Center Settings button
On the left side, select Macro settings
Select Disable all macros with notification
Select OK

The worksheets will quickly be sorted in ascending order, thus saving you time.
The post How to quickly rearrange your worksheets in alphabetical order appeared first on Sage Intelligence.