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
Join Our Telegram Group
Join Our WhatsApp Group
