kontrol af om 1 tal findes i 2 forskellige kolonner

Public Sub TjekNr()
    With Worksheets("Konto")
        Tjek = .Range("N5:O" & .Range("N65536").End(xlUp).Row)

        For I = 1 To UBound(Tjek)
            OK = False
            For Y = 1 To UBound(Tjek)
                If Not IsEmpty(Tjek(I, 1)) Then
                    If Tjek(I, 1) = Tjek(Y, 2) Then
                        OK = True
                        Exit For
                    End If
                Else
                    OK = True
                End If
            Next
            If Not OK Then
                MsgBox "Du har glemt at skrive  Celle(" & .Range("O" & I + 4).Address & ")"
                .Range("O" & I + 4).Select
                Exit Sub
            End If
        Next
        End With
End Sub

yes, lige som det skal være.
KAn det lade sig gøre at msg boksen skriver:

"Du har glemt at angive nr i kolonne O i linien" + (det som står i celle a og b i den pågældenden linie.)

Public Sub TjekNr()
    With Worksheets("Konto")
        Tjek = .Range("N5:O" & .Range("N65536").End(xlUp).Row)

        For I = 1 To UBound(Tjek)
            OK = False
            For Y = 1 To UBound(Tjek)
                If Not IsEmpty(Tjek(I, 1)) Then
                    If Tjek(I, 1) = Tjek(Y, 2) Then
                        OK = True
                        Exit For
                    End If
                Else
                    OK = True
                End If
            Next
            If Not OK Then
       
                MsgBox "Du har glemt at angive nr i kolonne O i linien(" & .Range("O" & I + 4).Offset(0, -14) & " " & .Range("O" & I + 4).Offset(0, -13) & ")"
                .Range("O" & I + 4).Select
                Exit Sub
            End If
        Next
        End With
End Sub

yes ,så var den der.
Tak for hjælpen

Denne makro skal som ovenfor anført tjekke kolonne N og O.

Den virker som den skal, men hvis både kol N og O er helt tomme siger den at der er fejl.

Hvis dette er tilfældet skal den bare køre igennem uden meddelelser.
Jeg har forsøt at rette iden, men uden held.

Er der nogen der kan se hvor det går galt.

Public Sub TjekNr()
Dim RK As Long, Data As Variant, OK As Boolean
    With Worksheets("Konto")
        RK = .Range("N65536").End(xlUp).Row
        If RK < 5 Then Exit Sub
        Tjek = .Range("N5:O" & RK)

        For I = 1 To UBound(Tjek)
            OK = False
            For Y = 1 To UBound(Tjek)
                If Not IsEmpty(Tjek(I, 1)) Then
                    If Tjek(I, 1) = Tjek(Y, 2) Then
                        OK = True
                        Exit For
                    End If
                Else
                    OK = True
                End If
            Next
            If Not OK Then

                MsgBox "Du har glemt at angive nr i kolonne O i linien(" & .Range("O" & I + 4).Offset(0, -14) & " " & .Range("O" & I + 4).Offset(0, -13) & ")"
                .Range("O" & I + 4).Select
                Exit Sub
            End If
        Next
    End With
End Sub