sayfaları soldan sağa alfabetik sıralama

[galkan]

Merhaba
Bir dosyadaki sayfaları alfabetik olarak soldan sağa nasıl sıralatabilirim
forumda arama yaptım ancak bulamadım
Yardımcı olabilirmisiniz
tesekkurler

 

[ileriexcel]

Sub Autpen()
Dim i As Integer
Dim j As Integer

If Worksheets.Count = 1 Then Exit Sub
For i = 1 To Worksheets.Count - 1
For j = i + 1 To Worksheets.Count
If Worksheets(j).Name < Worksheets(i).Name Then
Worksheets(j).Move before:=Worksheets(i)
End If
Next j
Next i
End Sub

 

[galkan]

tesekkurler