Berduş hocamızın ekleme kodundan devam edilimiştir.
İsterseniz önceki yazdığım kodlada ayarlanabilir atnı mantıkla.

Private Sub ComboBox1_Change()



    Dim syf As Worksheet, k As Byte

    Dim Ekleme As String



    Me.ListBox1.Clear

    istenmeyen = Array("", "ÞABLON", "Sayfa1", "liste")

    For k = 1 To UBound(istenmeyen, 1)

        Ekleme = Ekleme & "|" & istenmeyen(k) & "|"

    Next k

    

    For Each syf In Worksheets

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

        If LCase(syf.Name) Like "*" & LCase(Me.ComboBox1.Value) & "*" Then Me.ListBox1.AddItem syf.Name

    End If

    Next syf

    If Me.ComboBox1.Value = Empty Then Me.ListBox1.Clear

    Set syf = Nothing

End Sub

---

Buda benim yaptığım kodla.Tabii sayfa asları aynı olmalı.Normalde Lcase felan yazılabilir lakin gerek yok.

Private Sub ComboBox1_Change()

    Dim syf As Worksheet

    

    Me.ListBox1.Clear

    For Each syf In Worksheets

        If syf.Name <> "sayfa1" And syf.Name <> "liste" And syf.Name <> "?ABLON" Then

          If LCase(syf.Name) Like "*" & LCase(Me.ComboBox1.Value) & "*" Then Me.ListBox1.AddItem syf.Name

       End If

    Next syf

    If Me.ComboBox1.Value = Empty Then Me.ListBox1.Clear

    Set syf = Nothing

End Sub