TextBox a Göre ListBox İçeriğini Süzmek

TextBox'a yazılan harfe göre ListBox ta süzmek
Aşağıdaki gibi bir kod buldum fakat veriler faklı yerde olduğundan dolayı illede o sayfada olması gerekior UserFormun çalışması için

Private Sub Textbox1_Change()
Application.ScreenUpdating = False
On Error Resume Next
TextBox1 = Evaluate("=büyükharf(""" & TextBox1 & """)")
TextBox1 = Evaluate("=upper(""" & TextBox1 & """)")
ListBox1.Clear
If TextBox1.text = "" Then
Call UserForm_initialize
Else
With Sheets("DataBilgileri")
For i = 3 To .Range("U65536").End(3).Row
If Cells(i, "U").Value Like TextBox1.text & "*" Then
ListBox1.AddItem .Cells(i, "U").Value
End If
Next i
End With
End If
End Sub

Private Sub UserForm_initialize()
With Sheets("DataBilgileri")
For i = 3 To .Range("U65536").End(3).Row
ListBox1.AddItem .Cells(i, "U").Value
Next i
End With
End Sub

Ben hangi sayfada olursam olayım user formum Sheets("DataBilgileri") içinde olan verilerin görmesini istiyorum acaba ne yapmam gerekiyor.