مرتب سازی نام شیت های موجود در فایل اکسل به ترتیب الفبا

ماکرو ذیل شیت های فایل اکسل شما را به ترتیب الفبا مرتب می کند :

Sub SortSheetsTabName()
Application.ScreenUpdating = False
Dim ShCount As Integer, i As Integer, j As Integer
ShCount = Sheets.Count
For i = 1 To ShCount - 1
For j = i + 1 To ShCount
If Sheets(j).Name < Sheets(i).Name Then
Sheets(j).Move before:=Sheets(i)
End If
Next j
Next i
Application.ScreenUpdating = True
End Sub