i've not seen 'Next [object]' at the bottom of a next loop in VBS, just 'Next'. maybe 'Next NR' and 'Next Cell' should just be 'Next'.

cant say without seeing your data, really.

InStr([text], [search], 1) is case insensitive, btw, should that be part of your issue.