Public Sub Test()
Dim h, i, j, k As Long, Split_1
Dim FirstName As String, SR As Range
Set SR = [Sheet1!A2:A11]
k = 1
For Each i In Range(SR(1), SR(SR.Count - 1))
k = k + 1
FirstName = Mid(i, 1, InStr(1, i, " ") - 1)
For Each j In Range(i(k), SR(SR.Count))
Split_1 = Split(j, " ")
For Each h In Split_1
If FirstName = h Then
MsgBox FirstName & " (" & i.Address & _
" " & j.Address & ")"
End If
Next
Next
Next

Bruno
End Sub