Ordenar todas as Folhas de um livro - JJoão (03/2002)

Macro que ordena todas as folhas de livro

Sub jjOrdenarFolhas()
      Dim t As Integer, i As Integer, c As Integer
      Application.ScreenUpdating = False
      t = Sheets.Count
      If t = 1 Then Exit Sub
      For i = 1 To t - 1
          For c = i + 1 To t
               If Sheets(c).Name < Sheets(i).Name Then _
                  Sheets(c).Move Before:=Sheets(i)
          Next c
      Next i
      Application.ScreenUpdating = True
End Sub