[VBA] Wyszukiwanie po słowach klucz

Witam,

Po wciśnięciu przycisku Szukaj nie pokazują mi sie wszystkie znalezione wartości a jak wcisnę kolejny raz szukaj to pokazuje mi kolejne które znalazł.

Chciałbym, aby po wciśnięciu guzika Szukaj, Excel znalazł wszystkie komórki ze słowem klucz.

Nie wiem jak poprawić kod aby działało poprawnie.

W załączniku umieszczam to co do tej pory udało mi się stworzyć.

Dziekuje za pomoc

Witam
Nie istnieje nazwa zakresu "Table1", zapizs je dla FAQ!A2:A21", to będzie działać

Dodano po 5 [minuty]:

Oprócz zapominał wobec Exit Sub przed kurcze:

Dodano po 18 [minuty]:

Tak będzie lepiej
For Each i In Worksheets("FAQ").Range("Table1")
If UCase(i) Like "*" & UCase(slowa) & "*" Then

'Tu Twoja praca

End If
Next i

Dziekuje

Działa