Sub OrdenarHojasAlfabeticamente()

    Dim i As Integer

    Dim j As Integer

    Dim temp As String

    

    For i = 1 To Sheets.Count - 1

        For j = i + 1 To Sheets.Count

            If UCase(Sheets(j).Name) < UCase(Sheets(i).Name) Then

                Sheets(j).Move Before:=Sheets(i)

            End If

        Next j

    Next i

End Sub