Change a cod

[PARSA]

HI TO ALL,
I HAVE THIS COD:

Dim C As RangeFor Each C In Sheet1.Range("B3:B2003")
If C = TextBox1.Text Then
        ListBox1.AddItem C
End If
Next C

BUT I WANT "C" CONTAINS TEXTBOX1.TEXT AND NOT C = TextBox1.Text
WHAT CAN I DO?

 

[Momentman]

Something like this

Sub newsub()
    Dim C As Range
    For Each C In Sheet1.Range("B3:B2003")
        On Error Resume Next
        If InStr(1, C.Value, TextBox1.Text) > 0 Then
                ListBox1.AddItem C
        End If
    Next C
End Sub

 

[PARSA]

Something like this

Sub newsub()
    Dim C As Range
    For Each C In Sheet1.Range("B3:B2003")
        On Error Resume Next
        If InStr(1, C.Value, TextBox1.Text) > 0 Then
                ListBox1.AddItem C
        End If
    Next C
End Sub

THANKS