Selection.Find - hvis det søgte IKKE findes går det galt

Hej,

Jeg prøver at få en funktion til at virke.
Det drejer sig om at jeg vil finde nogle tal/kapitler som findes i kolonne A, for derefter at kopiere den fundne celle (nummer) og den til højre (Overskrift) over i en anden tab - for at kunne lave en slags inholdsfortegnelse over de kapitler der findes.

Det går godt med at finde 1,2,3,4 og 5, men der er ikke noget kapitel 6 og derfor

---
Selection.Find(What:=i, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False).Activate
---

Hvad kan man gøre for at den ikke stopper når et tal ikke findes ?? Er der en anden måde at søge på, som kan håndtere at et givent tal ikke findes ??

På forhånd tak,

JKAndersen