Kodlar aşağıdaki gibi olunca sıralama yapar zaten ve extra syfayada gerek kalmaz.

Const Ekleme As String = "|ÞABLON|Sayfa1|liste|TmpSilme|"

Private Sub UserForm_Initialize()

    Me.ComboBox1.DropDown

    Dim syf As Worksheet

    Dim coll As Object

    

    Set coll = CreateObject("System.Collections.ArrayList")

    For Each syf In Worksheets

        If InStr(1, Ekleme, "|" & syf.Name & "|", 1) = 0 Then coll.Add syf.Name

    Next syf

    If coll.Count > 0 Then

        coll.Sort

        Me.ComboBox1.List = coll.ToArray

        Me.ListBox1.List = coll.ToArray

    End If

    Set coll = Nothing

End Sub

---

Birde sayfalar resimdeki gibi ayarlardan gizleneilir.