Sheetleri alfabetik sıralama

[ares]

Merhaba arkadaşlar

Bir excel dosyam var, 400'e yakın sheet den oluşuyor. Ama bu sheetler alfabetik sıralanmamış bunları kolay bir şekilde alfabetik sıralamak mümkünmü? ....

Yardımlarınızı bekliyorum Çok acilllll

Teşekkürler

 

[nziya]

excel 255 sayfadır
Private Sub ListBox1_Click()
Sheets(ListBox1.Value).Select
End Sub

Private Sub UserForm_Initialize()
For A = 1 To Sheets.Count
ListBox1.AddItem Sheets(A).Name
Next
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/viewtopic.php?t=3919&highlight=alfabetik