VBA Code to Sort Worksheets in Excel

VBA code that you can use to sort worksheets in Excel.

VBA Code:

Sub SortWorksheets()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim i As Integer, j As Integer
    Dim tempSheet As Worksheet
    ' Set the workbook object
    Set wb = ThisWorkbook
    ' Sort worksheets alphabetically
    For i = 1 To wb.Worksheets.Count - 1
        For j = i + 1 To wb.Worksheets.Count
            If UCase(wb.Worksheets(j).Name) < UCase(wb.Worksheets(i).Name) Then
                Set tempSheet = wb.Worksheets(j)
                tempSheet.Move Before:=wb.Worksheets(i)
                Set tempSheet = Nothing
            End If
        Next j
    Next i
    ' Inform the user that the worksheets have been sorted
    MsgBox "Worksheets have been sorted alphabetically!"
End Sub

Check All VBA Codes

Join Our Telegram Group techguruplus telegram group Join Our WhatsApp Group techguruplus whatsapp group
Nazim Khan - Author Image

Nazim Khan (Author) 📞 +91 9536250020
[MBA in Finance]

Nazim Khan is an expert in Microsoft Excel. He teaches people how to use it better. He has been doing this for more than ten years. He is running this website (TechGuruPlus.com) and a YouTube channel called "Business Excel" since 2016. He shares useful tips from his own experiences to help others improve their Excel skills and careers.

Leave a Comment