Ist hier ein Hut des guten Beispiels, den Sie, ändern KN für Ihre Notwendigkeiten.
http://www.ozgrid.com/VBA/find-method.htm