Compare 2 column of names

Function SIMILAR(text1 As String, _
    text2 As String, _
    Optional case_sensitive = False)

    Dim i As Byte
    Dim chars As Byte
    
    chars = WorksheetFunction.Min( _
        Len(text1), _
        Len(text2))
    
    If chars < 1 Then Exit Function
    
    For i = 1 To chars
        If case_sensitive Then
            If Mid(text1, i, 1) = _
                Mid(text2, i, 1) Then
                SIMILAR = True
                Exit Function
            End If
        Else
            If LCase(Mid(text1, i, 1)) = _
                LCase(Mid(text2, i, 1)) Then
                SIMILAR = True
                Exit Function
            End If
        End If
    Next i
    
    SIMILAR = False

End Function

Function CompNames(Rng1 As Range, Rng2 As Range) As String


If Rng1 = Rng2 And Rng1.Value = "" Then
CompNames = ""
Exit Function
End If


n1 = Split(UCase(Rng1))
n2 = Split(UCase(Rng2))


CompNames = "NO"
For c1 = 0 To UBound(n1)
For c2 = 0 To UBound(n2)
If n1(c1) = n2(c2) Then
CompNames = "YES"
Exit Function
End If
Next c2
Next c1
End Function