Quote:
Originally Posted by Bruno Campanini
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
|
Ok then I guess Bruno here decided to just post some code. Nevermind Charles. Be sure to remove the text Bruno from the sub or you will get a compile error. I can see that you went ahead and indented this code Bruno but it was not surrounded by code tags so the formatting was lost.