Excel VBA Podświetl duplikaty w aktywnej kolumnie

Próbuję utworzyć makro, które podświetli duplikaty w kolumnie, w której wpisywany jest tekst.

Mam 54 kolumny i chcę podświetlić duplikaty w każdej kolumnie po wprowadzeniu tekstu. Scenariusz jest następujący: jeśli „ZSZYWKI” zostaną wprowadzone dwukrotnie w kolumnie B, wówczas komórki (B3, B22) zostaną podświetlone. Chcę makro, które może to zrobić dla każdej kolumny, więc jeśli „ZSZYWKI” zostaną wprowadzone do kolumny E tylko raz nic się nie powinno stać.

Korzystanie z formatowania warunkowego = LICZ.JEŻ niekoniecznie pomaga (ze względu na przepływ pracy podczas kopiowania kolumn do nowych arkuszy).

Mam już to makro:

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

Działa dobrze, ale dotyczy tylko jednej kolumny („C”).

Jak ustawić zakres jako aktywną kolumnę?

Próbowałem zmienić Rng na

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

ale to oczywiście źle.

Jakieś pomysły?

questionAnswers(1)

yourAnswerToTheQuestion