Ok I think I understand what you're saying as far as changing the value of StrFind. When I try the count method, I get an error on this line:
strFind = Sheets("Instructions").ActiveCell("H" & count).Value
It says "Object doesn't support this method or property..