Sayfa sıralamasında sorun.?

[ZİNDAN]

Arkadaşlar merhaba;
Aşağıdaki kod ile çalışma kitabındaki sayfaları sıralatıyorum.Ancak türkçe karakter (ü,i,ğ,ö,ş) ile başlayan sayfaları sıralamayıp en sona atıyor.
Bunlarıda sıralamaya nasıl dahil edebiliriz.?
Bu konuda üstadlarımızın yardımlarını bekliyorum.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim intI As Integer, intJ As Integer
 For intI = 1 To Sheets.Count
   For intJ = 1 To Sheets.Count - 1
     If UCase(Sheets(intJ).Name) > UCase(Sheets(intJ + 1).Name) Then
        Sheets(intJ).Move after:=Sheets(intJ + 1)
     End If
   Next
 Next
End Sub

Kolay gelsin.
Teşekkürler.

 

[ZİNDAN]

Yardım edebilecek yokmu.?

 

[Ali]

Haluk Bey'e ait kodlardır.

Sub Test()
Dim ShArr() As String
Dim i As Integer
Dim MyWd As Object
ReDim ShArr(1 To Sheets.Count)
For i = 1 To Sheets.Count
ShArr(i) = LCase(Sheets(i).Name)
Next
Set MyWd = CreateObject("Word.Application")
MyWd.WordBasic.SortArray ShArr()
For i = UBound(ShArr) - 1 To 1 Step -1
Sheets(ShArr(i)).Move Before:=Sheets(ShArr(i + 1))
Next i
MyWd.Quit
Set MyWd = Nothing
Erase ShArr
End Sub

 

[ZİNDAN]

Teşekkürler.