مرتب سازی برگ های یک کاربرگ در اکسل

اگر یک کتاب کار با کاربرگ های زیادی دارید و می خواهید آنها را بر اساس حروف الفبا مرتب کنید، این کد ماکرو می تواند بسیار مفید باشد. اگر نام برگه‌ها را به‌عنوان سال یا نام کارمندان یا نام محصولات داشته باشید، می‌تواند چنین باشد.

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