Duplikate Markieren

Hallo Forum,
gibt es eine Möglichkeit aus zwei sheets die spalte A auf Duplikate zu prüfen und in einem sheet farbig hervorheben? Bis jetzt hab ich das mit einer Formel gemacht mit einer bedingten Formatierung.
Würde das aber nun gerne mit einem VBA Makro machen. Ich bekomme es allerdings nur auf einem sheet hin?

Sub Duplikat()
' Duplikat Makro
Columns("A:A").Select
Selection.FormatConditions.AddUniqueValues
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).DupeUnique = xlDuplicate
With Selection.FormatConditions(1).Font
.Color = -16776961
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("A1").Select
End Sub