Attribute VB_Name = "SortSheetsAlphabetically"
Option Explicit

Public Sub SortSheetsAlphabetically()
    Dim i As Long, j As Long
    Dim wsCount As Long

    wsCount = ThisWorkbook.Worksheets.Count
    Application.ScreenUpdating = False

    For i = 1 To wsCount - 1
        For j = 1 To wsCount - i
            If UCase(ThisWorkbook.Worksheets(j).Name) > UCase(ThisWorkbook.Worksheets(j + 1).Name) Then
                ThisWorkbook.Worksheets(j).Move After:=ThisWorkbook.Worksheets(j + 1)
            End If
        Next j
    Next i

    Application.ScreenUpdating = True
    MsgBox "Sheets sorted alphabetically.", vbInformation
End Sub