Cruzar columnas y extraer los que se repiten

Si pegas el siguiente código en el módulo de la hoja (pulsación con el botón derecho sobre su etiqueta->Ver código), se mostrarán en amarillo las celdas de las columnas que tengan el mismo valor en el rango A1:C50
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Me.[A1:C50].Interior.Color = xlNone
    If Target.Cells.Count > 1 Then Exit Sub
    If Intersect(Target, Me.[A1:C50]) Is Nothing Or Target.Value = "" Then Exit Sub
    Me.[A1:C50].Interior.Color = xlNone
    Dim n As Byte
    If Target.Column = 1 Then
        For n = 1 To 50
            If Me.Cells(n, 2).Value = Target.Value Then
                Me.Cells(n, 2).Interior.Color = 65535
            End If
        Next n
        For n = 1 To 50
            If Me.Cells(n, 3).Value = Target.Value Then
                Me.Cells(n, 3).Interior.Color = 65535
            End If
        Next n
    ElseIf Target.Column = 2 Then
        For n = 1 To 50
            If Me.Cells(n, 1).Value = Target.Value Then
                Me.Cells(n, 1).Interior.Color = 65535
            End If
        Next n
        For n = 1 To 50
            If Me.Cells(n, 3).Value = Target.Value Then
                Me.Cells(n, 3).Interior.Color = 65535
            End If
        Next n
    Else
        For n = 1 To 50
            If Me.Cells(n, 1).Value = Target.Value Then
                Me.Cells(n, 1).Interior.Color = 65535
            End If
        Next n
        For n = 1 To 50
            If Me.Cells(n, 2).Value = Target.Value Then
                Me.Cells(n, 2).Interior.Color = 65535
            End If
        Next n
    End If
End Sub

Ante nada muchas gracias, parece que esta fuera una solución a mi problema por lo que llego a entender, el problema es que no llego a comprender bien tu exolicacion, ¿insisto con pedir disculpas por mi ignorancia pero si podes me explicarías un poco más claro?