VBA: Error handling, on error go to Run-time error '91

Jeg har en sub, hvor der kører noget kode. Den skal lede efter noget værdi og spring til næste trin hvis den fejler(hvis værdien ikke findes).

men jeg får en Run-time error '91 alligevel.


Hvad gør jeg galt?

Koden ser sådan ud og den fejler i Selection.Find.

Application.Goto Reference:="Typen"
On Error GoTo arox

    Selection.Find(What:="EDI", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    ActiveCell.Offset(0, 6).Range("A1").Select

  ActiveCell.Formula = "=IF(AndelOverKPI<0.01,""J"",IF(AndelOverKPI<0.1,""K"",""L""))"
'End Sub

'Sub FarveformaterNiveau()
'

'
arox: