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

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

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]

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