Estou tentando criar uma macro que irá destacar duplicatas na coluna onde o texto está sendo inserido.

Eu tenho 54 colunas e quero destacar duplicatas em cada coluna conforme o texto é inserido. O cenário é: se "STAPLES" for inserido duas vezes na coluna B, as células (B3, B22) serão destacadas. Eu quero uma macro que possa fazer isso para cada coluna, portanto, se "STAPLES" for inserido na coluna E apenas quando nada acontecer.

Usar a formatação condicional = COUNTIF não ajuda necessariamente (devido ao fluxo de trabalho de copiar colunas para novas planilhas).

Eu já tenho essa 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 bem, mas é apenas para uma coluna ("C").

Como defino o intervalo para ser a coluna ativa?

Eu tentei mudar Rng para

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

mas isso está obviamente errado.

Alguma ideia?