Estoy intentando crear una macro que resaltará los duplicados en la columna donde se ingresa el texto.

Tengo 54 columnas y quiero resaltar los duplicados en cada columna a medida que se ingresa el texto. El escenario es: si se ingresa "GRAPAS" dos veces en la columna B, las celdas (B3, B22) se resaltarán. Quiero una macro que pueda hacer esto para cada columna, por lo que si se ingresa "PUNTAS" en la columna E solo una vez, no debería ocurrir nada.

El uso del Formato condicional = COUNTIF no ayuda necesariamente (debido al flujo de trabajo de copiar columnas a nuevas hojas de trabajo).

Ya tengo esta macro:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


Dim Rng As Range
Dim cel As Range

'Test for duplicates in a single column
'Duplicates will be highlighted in red


Set Rng = Range(Range("C1"), Range("C" & Rows.Count).End(xlUp))


For Each cel In Rng
    If WorksheetFunction.CountIf(Rng, cel.Value) > 1 Then

cel.Interior.ColorIndex = 3
    End If
Next cel

End Sub

Funciona bien pero es solo para una columna ("C").

¿Cómo configuro el rango para que sea la columna activa?

He intentado cambiar Rng a

'Set Rng = Range(ActiveCell,ActiveCell.Column.End(xlUp)) 

pero esto está obviamente mal.

¿Algunas ideas?