Extracting duplicate names that are similar in the first 3 words of the title.

Function RemoveDups(Title As String) As String
    Dim S As String, SA As Variant, I As Long
    
    SA = Split(Application.Trim(Replace(Title, Chr(160), " ")), " ")
    For I = 0 To UBound(SA) - 1
        If SA(I) = SA(I + 1) Then
            S = S & " "
        Else
            S = S & SA(I) & " "
        End If
    Next I
    S = Application.Trim(S & SA(UBound(SA)))
    RemoveDups = S
End Function