Dizi olayı ile kod aşağıda abey.

Private Sub ComboBox1_Change()



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

    Dim syf As Worksheet

    Dim arr, say As Integer

    

    ReDim arr(1 To Worksheets.Count)

    For Each syf In Worksheets

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

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

                say = say + 1

                ReDim Preserve arr(1 To say)

                arr(say) = syf.Name

            End If

        End If

    Next

    Me.ListBox1.Clear

    If say > 0 Then Me.ListBox1.List = arr

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

    

    Set syf = Nothing

    Erase arr



End Sub

---

@berduş hocam yinede yazayım C sürücüsüne Yedek adında yaedekleme yapılıyor excelin kapanma olayına yazmışlar aklınızda olsun.