Just swap the arguments:

Code:
If InStr(List2.List(J), List1.List(i)) Then
Note List2's J index.