A Find-nak van egy másik felhasználási módja:


Dim Talalat as Range

Set Talalat = Selection.Find(What:=KERES(i), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

If Not Talalat Is Nothing Then

mert ha a Talalat = Nothing, na olyankor szokott hibára menni a te változatod. Így viszont le lehet kérdezni, és nincs hiba.