האם יש דרך לסדר לשוניות לפי א-ב באקסל?

[monas161]

שלום רב
ברשותכם אקסל 2016 על מערכת הפעלה win10 יש לי מספר גליונות לפי שמות.
האם יש דרך לסדר הגליונות לפי א - ב?

בברכה: מונס

 

[lj101]

שלום רב
ברשותכם אקסל 2016 על מערכת הפעלה win10 יש לי מספר גליונות לפי שמות.
האם יש דרך לסדר הגליונות לפי א - ב?

בברכה: מונס

Sub SortWorksheetsTabs()
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 UCase(Sheets(j).Name) < UCase(Sheets(i).Name) Then
Sheets(j).Move before:=Sheets(i)
End If
Next j
Next i

Application.ScreenUpdating = True
End Sub

 

[מיכאל אבידן]

‏
ב'אקסל' ניתן לבצע הכל מלבד שלושה דברים [ששניים מהם ממילא אינם חוקיים מחוץ למדינת פלורידה].

ניתן למיין גיליונות ללא VBA בעזרת אחד מהתוספים (החינמיים): "ASAPUtilities" ו"אקסל+".
‏