tam olarak sisteminiz anlayamadım ama aşağıdaki kod işinize yarayabilir

Private Sub UserForm_Initialize()

Dim Sql As String

Dim Cn As Object

Dim Rs As Object

Dim SyfEkle As String

    

    SyfEkle = ""

    For Each syf In Worksheets

        If LCase(syf.Name) = LCase(syf.Range("A1").Value) Then

            SyfEkle = SyfEkle & ",'" & syf.Name & "'"

        End If

    Next syf

    SyfEkle = Mid(SyfEkle, 2)

    Debug.Print "SyfEkle init", SyfEkle

Set Cn = CreateObject("Adodb.Connection")

Cn.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;data source=" & _

                      ThisWorkbook.FullName & ";extended properties=""excel 8.0;hdr=no"""

Cn.Open



SQL = "select * from [liste$A2] where [F1]<>'' and [F1] in (" & SyfEkle & ") order by [F1]"

Set Rs = CreateObject("adodb.recordset")

Rs.Open SQL, Cn, 3, 1

ListBox1.Column = Rs.GetRows 'RowSource = "liste!a1:F65536"

Rs.Close

Set Rs = Nothing

End Sub