Sheetleri sayı numarasına göre sıralamak

[dELuxE]

Merhaba arkadaşlar;

Aşağıdaki örnek excel'de 1'den 15'e kadar sıralanmış sheetler var ; bu sheetleri sırayla 16 17 18 şeklinde kolay yoldan acabilme imkanımız varmi ?

Şimdiden teşekkürler.

 

[hamitcan]

Sayfanın ThisWorkBook kısmına aşağıdaki kodu ekleyerek dener misiniz?

Private Sub Workbook_NewSheet(ByVal Sh As Object)
For i = 1 To Sheets.Count
    If IsNumeric(Sheets(i).Name) Then
        If Val(Sheets(i).Name) > Val(Sheets(i - 1).Name) Then
            sayfa = Val(Sheets(i).Name) + 1
        End If
    End If
Next
Sh.Name = sayfa
End Sub