Tom’s Tutorials for Excel: How to sort your sheet tabs in alphanumeric ascending order

Tom’s Tutorials for Excel:How to sort your sheet tabs in alphanumeric ascending order
Happy Friday! Here is today’s useful Excel solution from Tom Urtis

Sub SortSheetsTabName()
Application.ScreenUpdating = False
Dim iSheets%, i%, j%
iSheets = Sheets.Count
For i = 1 To iSheets - 1
For j = i + 1 To iSheets
If Sheets(j).Name < Sheets(i).Name Then
Sheets(j).Move before:=Sheets(i)
End If
Next j
Next i
Application.ScreenUpdating = True
End Sub

Remember, you can follow Tom Urtis on Twitter @TomUrtis and on Facebook Tom Urtis/ Atlas

Share Button
Posted in Tom's Tutorials for Excel
Tags: , , , , , , , , , , , , ,

Leave a Reply

Your email address will not be published. Required fields are marked *

*