try chip pearson's code:

Sub AlphaSortWorksheets()

   Dim N      As Integer
   Dim M      As Integer
   Dim FirstWSToSort As Integer
   Dim LastWSToSort As Integer
   Dim SortDescending As Boolean

   SortDescending = False
   FirstWSToSort = 1
   LastWSToSort = Worksheets.Count

   For M = FirstWSToSort To LastWSToSort
       For N = M To LastWSToSort
           If SortDescending = True Then
               If UCase(Worksheets(N).Name) > _
                  UCase(Worksheets(M).Name) Then
                   Worksheets(N).Move before:=Worksheets(M)
               End If
           Else
               If UCase(Worksheets(N).Name) < _
                  UCase(Worksheets(M).Name) Then
                   Worksheets(N).Move before:=Worksheets(M)
               End If
           End If
       Next N
   Next M

End Sub