Я делал это раньше, но это было много лет назад. Возьмите этот код:
Set Find = r.Find(Text, LookIn:=xlFormulas, lookat:=xlWhole)
Это работает в макросе, который у меня есть. Проблема в том, что когда я выполняю обычный поиск с помощью CTRL+F, параметры, используемые здесь в моем коде макроса, сохраняются. Обычно мне нравится искать в содержимом ячейки, а не во всей ячейке, как это делает приведенный выше код. Немного неудобно расширять параметры поиска и снимать флажок «Соответствовать всему содержимому ячейки» каждый раз, когда я открываю окно поиска.
Что я делал, так это сохранял текущие настройки поиска в переменную, запускал .Find(), затем устанавливал параметры обратно на то, что они были, но я не могу понять это.