Farv. dublicate celler i A

Sub FarvCeller()
Dim rCell As Range
Dim lLastRow As Long
'slå skærmopdatering fra pga. speed
  Application.ScreenUpdating = False
 
  'find sidste række i kolonne A
  lLastRow = Range("A65536").End(xlUp).Row
 
  'sæt avanceret filter på dataområdet, således at kun
  'unikke poster er vist. dvs dubletter er så gemt.
  Range("A1:A" & lLastRow).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
 
  'gå alle rækker i kolonne A igennen og se om rækken er gemt
  'hvis den er gemt er det fordi det er en dublet og så skal den farves
  For Each rCell In Range("A1:A" & lLastRow)
      If rCell.EntireRow.Hidden = True Then rCell.Interior.Color = vbRed
  Next
  'Fjern filteret igen og vis alle data
  ActiveSheet.ShowAllData
  'slå skærmopdatering til igen
  Application.ScreenUpdating = True
End Sub