مرتب کردن شیت ها در اکسل

[~M*E*H*D*I~]

http://exceliran.com/up/up/4034f8acadfbb145c64c82392ece0a2c.jpg (http://www.exceliran.com)

Sub SortSheets()
Dim lCount As Long, lCounted As Long
Dim lShtLast As Long
Dim lReply As Long
lReply = MsgBox("To sort Worksheets ascending, select 'Yes'. " _
& "To sort Worksheets descending select 'No'", vbYesNoCancel)
If lReply = vbCancel Then Exit Sub
lShtLast = Sheets.Count
If lReply = vbYes Then 'Sort ascending
For lCount = 1 To lShtLast
For lCount2 = lCount To lShtLast
If UCase(Sheets(lCount2).Name) < UCase(Sheets(lCount).Name) Then
Sheets(lCount2).Move Before:=Sheets(lCount)
End If
Next lCount2
Next lCount
Else 'Sort descending
For lCount = 1 To lShtLast
For lCount2 = lCount To lShtLast
If UCase(Sheets(lCount2).Name) > UCase(Sheets(lCount).Name) Then
Sheets(lCount2).Move Before:=Sheets(lCount)
End If
Next lCount2
Next lCount
End If
End Sub

[mokaram]

اگر نام شیت عدد باشه مثل 1 و 2 و 3 و11 و4 و 15 و .... با این کد شیت ها به ترتیب عدد سورت نمیشن مثلا بعد از شیت 1 شیت 11 میاد چطوری میشه شیت ها به ترتیب عددی از کوچیک به بزرگ سورت بشن؟

[~M*E*H*D*I~]

اگر نام شیت عدد باشه مثل 1 و 2 و 3 و11 و4 و 15 و .... با این کد شیت ها به ترتیب عدد سورت نمیشن مثلا بعد از شیت 1 شیت 11 میاد چطوری میشه شیت ها به ترتیب عددی از کوچیک به بزرگ سورت بشن؟

از کد زیر استفاده کن


If Val(Sheets(lCount2).Name) < Val(Sheets(lCount).Name) Then

[s.moradnia]

سلام
من از این کد استفاده کردم
شیتهای من نامشون همه فارسی هست ولی این کد در مورد حروف فارسی درست عمل نمیکنه
کسی میدونه مشکل چیه؟