Excel VBA Dynamic Filter TextBox from ListBox Values

[EverLearner]

I have populated a column range cells into a UserForm ListBox (below is the code bulk). Now I want to create a TextBox in the same Form to dynamically filter the contents of that ListBox as I type my entry. How can I utilize the AutoFilter method to call the ListBox content? Thanks for your help.

Set rSource = Sheets("Property").Range(Range("B5"), Range("B5").End(xlDown))

ListBox1.List = rSource.Cells.Value

 

[Yongle]

welcome to the forum

Remove the above lines
Set rSource = Sheets("Property").Range(Range("B5"), Range("B5").End(xlDown))
ListBox1.List = rSource.Cells.Value

Instead the ListBox is filled dynamically by code below

This works for me, where TextBox1 is the textbox and ListBox1 is the listbox

Private Sub TextBox1_Change()
    Dim ws As Worksheet, rng As Range, cel As Range
    ListBox1.Clear
    Set ws = Sheets("Property")
    Set rng = ws.Range("$B$4", ws.Range("$B$4").End(xlDown))
    rng.AutoFilter Field:=1, Criteria1:="*" & TextBox1.Text & "*"
    
    On Error GoTo TheEnd
    Set rng = rng.Offset(1).Resize(rng.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    For Each cel In rng
        ListBox1.AddItem cel
    Next
TheEnd:
End Sub

 

[EverLearner]

@Yongle : Thank you very much. It working as desired.