Excel Forum

Code: Select all

'Other code
For i = 2 To Application.WorksheetFunction.CountA(sh.Range("B:B"))
    If sh.Range("c" & i).Value <> "" Then
        If Me.TextBox1.Value = "" Then
            Me.ListBox1.AddItem sh.Range("C" & i).Value
        Else
            If VBA.InStr(UCase(sh.Range("C" & i).Value), UCase(Me.TextBox1.Value)) > 0 Then
                Me.ListBox1.AddItem sh.Range("C" & i).Value
            End If
        End If
    End If
Next i
'Other code