VBA, makro, Excel - Jak przypisać kategorie do komórek na podstawie słownika?

Cześć,

Szukam rozwiązania w postaci makro dla następującego problemu mianowicie.

W arkuszu 1 w komórce A mam różne ciągi znaków np:
Bank Zachodni
Bank Wschodni
Bank Spółdzielczy
Skok Północny
Szpital w ...
Szpital w ...

W arkuszu 2 mam słownik na zasadzie:
bank, Bankowość
skok, Bankowość
Szpital, Szpitale

Zadaniem jest przypisać komórkom w arkuszu 1 daych kategorii na podstawie fraz przy nich zawartych

Z góry dziękuję za pomoc

wyszukaj.pionowo:

Dziękuję za sugestię i poświęcony czas ale to nie jest rozwiązanie którego szukam. Fraza musi zawierać się w ciągu znaków, a nie pasować 1:1

To znaczy jeżeli będę miał frazę:

Usługi Bankowe Tadeusz Kowalski - to ciąg ten zawiera słowo klucz "bank" i przypisuje mu kategorię "Bankowość"

To znaczy, że muszę każdy rekord przeszukać pod kątem słów kluczy i przypisać im odpowiednią kategorię.

Dziękuję właśnie o takie rozwiązanie chodziło,

brakowało jedynie metody porównania; vbTextCompare