Dim i As Integer, j As Integer
Dim a As Integer


a = Sheets.Count

For i = 2 To a
  For j = 1 To i - 1
   If UCase(Sheets(j).Name) > UCase(Sheets(i).Name) Then
   Sheets(i).Move Before:=Sheets(j)
   End If
   Next j
   
Next i