VBA Highlight Multiple Names in a Cell

[anthonyexcel]

I have multiple names in a cell in column A. What I would like to do is to highlight the duplicates as seen below. Any help would be appreciated!

Pete, Pete Pete, Paul Al, Joe, James Jimmy, John, Jimmy Mike, Jerry, Jerry Sam, Ray, Ted, Fred Barry, Jamie, Barry

 

[JoeMo]

Assuming names start in cell A2:

Sub HiLiteInCellDups()
Dim R As Range, Cel As Range, V As Variant, i As Long, j As Long
Set R = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)
Application.ScreenUpdating = False
For Each Cel In R
    If InStr(1, Cel.Value, ", ") > 0 Then
        V = Split(Cel.Value, ", ")
        For i = LBound(V) To UBound(V) - 1
            For j = i + 1 To UBound(V)
                If V(i) = V(j) Then
                    Cel.Interior.Color = vbYellow
                    Exit For
                End If
            Next j
        Next i
    End If
Next Cel
Application.ScreenUpdating = True
End Sub

 

[anthonyexcel]

Assuming names start in cell A2:

Sub HiLiteInCellDups()
Dim R As Range, Cel As Range, V As Variant, i As Long, j As Long
Set R = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)
Application.ScreenUpdating = False
For Each Cel In R
    If InStr(1, Cel.Value, ", ") > 0 Then
        V = Split(Cel.Value, ", ")
        For i = LBound(V) To UBound(V) - 1
            For j = i + 1 To UBound(V)
                If V(i) = V(j) Then
                    Cel.Interior.Color = vbYellow
                    Exit For
                End If
            Next j
        Next i
    End If
Next Cel
Application.ScreenUpdating = True
End Sub

JoeMo, Perfect! That is exactly what I was looking for! Thank you again for your help and guidance!

 

[JoeMo]

JoeMo, Perfect! That is exactly what I was looking for! Thank you again for your help and guidance!

You are welcome - thanks for the reply.