Здесь шлем хорошего примера, котор вы cn дорабатывает для ваших потребностей.
http://www.ozgrid.com/VBA/find-method.htm