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