Najít a Nahradit + formátovat - makro

[Kurimak]

Zdravím,
vytvořil již někdo makro s využitím nástroje Najít a Nahradit, kde by se postupně vyhledávala všechna slova zvolené oblasti a v jiné oblasti buněk by tato slova, která jsou součástí textu v buňce, byla naformátována zvoleným formátem? Pro jedno slovo by to nebyl problém, ale jak postupovat, když je slov několik desítek a seznamů slov pro formátování je také větší množství?

[guest]

Pravděpodobně tedy dva cykly (procházíme databanku slov a oblast), pro metodu Find najdete v nápovědě příklad a dále pak VBA funkce InStr nebo vypůjčení si funkcí listu a formátování přes Font a Characters. Ve výsledku je to pěkná opičárna, a nejsem si jistý, jestli to má smysl.

P. S. Plná podpora (náhrada, obsluha) dialogu Najít a nahradit pod VBA není. Přes klávesové zkratky je to tfujtajxl a vestavěný dialog vyvolaný přes VBA a Dialogs je historická vykopávka.