Entradas

 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