sayfa sıralama

[aliballi]

merhaba arkadaşlar,

aşağıdaki kodla sayfaları sıralıyordum fakat sayfa adetleri artınca yanlış sırlama yapmaya başladı.
örneğin 11-12-13-21-23 sayfa numarası varken
134 nolu sayfayı 13. sayfadan sonra koyuyor.. kodda ne gibi değişiklikler yapmalıyım şimdiden teşekkürler

Sub sirala()
For a = 1 To Sheets.Count
For b = a + 1 To Sheets.Count
If LCase(Sheets(b).Name) > LCase(Sheets(a).Name) Then GoTo 10
Sheets(b).Move before:=Sheets(a)
10 Next
Next
End Sub

 

[sheetsMaster]

Eğer sayfa isimlerin sadece sayılardan oluşuyorsa LCase lerin yerine Val yazarak sorunun çözülür.