Matching values in 2 columns REFUSES to work correctly!

[zookeepertx]

This is just infuriating me!

Within my macro is the following code:

For i = lr To 2 Step -1
    If InStr(Range("J" & i).Value, Range("K" & i).Value) Then
    Rows(i).Delete
    End If
Next i

As an example, for 3 of the rows, the value in J is

10100225056,10100225315,10100214598,10100212827,10100204778

10100225056,10100225315,10100214600,10100212827,10100157361, while K is empty. However, all of the lines are being deleted. I've tried everything I can think of to fix this with NO luck. I've spent a large part of the morning on this and am about to chuck the computer out the window. Can someone please tell me what I'm doing wrong?? Thanks! Jenny

<colgroup><col style="mso-width-source:userset;mso-width-alt:15506;width:318pt" width="424"> </colgroup><tbody>
[TD="width: 424"]10100225056,10100214600,10100212827,10100204778,10100204779,[/TD]

</tbody>

 

[Fluff]

How about

Sub chk()
For i = LR To 2 Step -1
   If Len(Range("K" & i).Value) > 0 Then
      If InStr(Range("J" & i).Value, Range("K" & i).Value) Then
         Rows(i).Delete
      End If
   End If
Next i
End Sub

 

[zookeepertx]

Perfect! Thank you so much; you saved me! ray:
My boss has been bugging me all day to get this finished)

Jenny

 

[Fluff]

Glad to help & thanks for the feedback