Private Sub CommandButton1_Click() Sheets("principal").Columns("A:A").Select Selection.ClearContents Sheets("principal").Range("a1").Select i = 0 For Each w In Worksheets i = i + 1 If i > 1 Then Sheets("principal").Cells(i - 1, 1).Value = w.Name End If ' Next Sheets("principal").Range("a1:a100").Sort Key1:=Sheets("principal").Range("A1") For j = 1 To i - 1 vnome = Trim(Sheets("principal").Range("a" + CStr(j)).Value) Sheets(vnome).Select Sheets(vnome).Move After:=Sheets(i) Next Sheets("principal").Select End Sub