Sorter område udfra liste

Hvor går det galt (du skulle jo nødigt miste det hele)

Du er velkommen til at sende filen med nødvendig forklaring.
@-adr. under min profil.

Rem Version 1
Rem =========
Const af_okSignatur = "OK"                            'kan ændres
Dim antalRækker As Long, ræk As Long, bookNr As String
Dim svar As String, antalOK As Long
Public Sub checkKolonneA_F()
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
    antalOK = 0
    Application.ScreenUpdating = False
   
    For ræk = 2 To antalRækker
        bookNr = Range("A" & CStr(ræk))
        If bookNr <> "" Then
            svar = erBookNriF(bookNr)
            Range("D" & CStr(ræk)) = svar
        End If
    Next ræk
   
    Application.ScreenUpdating = True
    MsgBox ("Antal OK: " & CStr(antalOK))
End Sub
Private Function erBookNriF(bknr)
    With ActiveSheet.Range("F2:F" & CStr(antalRækker))
        Set c = .Find(bknr, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            erBookNriF = af_okSignatur
            antalOK = antalOK + 1
        Else
            erBookNriF = ""
        End If
    End With
End Function