مرتب کردن کاربرگ ها به ترتیب الفبا

[jansiz hayat]

با سلام.
Sub sortsheet()
For i = 1 To Sheets.Count
For j = 1 To Sheets.Count - 1
If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then
Sheets(j).Move after:=Sheets(j + 1)
End If
Next j
Next i
End Sub