hjælp til at progamere med funktionen "find"

Jeg har lavet denne lille kode som skal hente data fra et andet ark. den finder det den skal flytte ved at bruge funktionen "find", mit problem er at hvis det eftersøgte ikke findes hopper den ud med beskeden om "kørselsfejl 91", objektvariablen eller with blokken ikke angivet. Det virker som om det kun er nogen gange for hvis jeg konstrurer en fejl altså et nr som jeg ved ikke findes virker errorhandleren fint. jeg håber det er til at finde ud af?

Koden:

Function indsætkonto()

Workbooks.OpenText FileName:="W:\PBS\betalingsaftalerudentekstbackup.xls"
Windows("pbstest.TXT").Activate
Range("D2").Select
   
  Do While Selection <> Empty
 
    On Error GoTo errorHandler
   
  aftnr = Selection
 
    Selection.Copy
    Windows("betalingsaftalerudentekstbackup.xls").Activate
   
    Cells.Find(What:=aftnr, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
         
         
    ActiveCell.Offset(0, 3).Copy
    Windows("pbstest.TXT").Activate
    ActiveCell.Offset(0, 4).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
      ActiveCell.Offset(0, -4).Select
     
errorHandler:
    Windows("pbstest.TXT").Activate
    ActiveCell.Offset(1, 0).Select

    Loop
   
End Function