There are more than just the one obvious mistake. I've corrected it

Code:
If InStr(List2.List(j), List1.list(i)) Then