حل الخطأ فى هذا الكود

Option Explicit

Dim WS As Worksheet, SH As Worksheet

Dim I As Long, RO As Long, WSLR As Long, SHLR As Long, res As Long, SS As Long

Dim C As Range, K As Integer

Private Sub TextBox1_Change()

WSLR = WS.Cells(Rows.Count, 1).End(xlUp).Row

K = 0

On Error Resume Next

    With Me.ListBox1

        .Clear

        .ColumnCount = 4

        For Each C In WS.Range("B2:B" & WSLR)

            If TextBox1.Value <> "" Then

                If C Like "*" & TextBox1.Value & "*" Then

                .AddItem

                .List(K, 0) = WS.Cells(C.Row, 5).Value

                .List(K, 1) = WS.Cells(C.Row, 4).Value

                .List(K, 2) = WS.Cells(C.Row, 3).Value

                .List(K, 3) = WS.Cells(C.Row, 2).Value

                .List(K, 4) = C.Row

                K = K + 1

                End If

            End If

        Next C

    End With

End Sub