Identificar dados repetidos

Identificar dados repetidos
Esta macro Excel VBA abre um inputbox e solicita para selecionar um range onde serão avaliados os dados e destaca os repetidos de cor diferente dos valores únicos.

Sub Verifica_Duplicados()
Dim Collec As New Collection, Cell As Range, Plage As Range
 
  On Error Resume Next
  Set Plage = Application.InputBox("Range a examinar", Type:=8)
  If IsEmpty(Plage) Then Exit Sub
 
  For Each Cell In Plage
    If Cell.Value <> “” Then
      Collec.Add Cell.Value, CStr(Cell.Value)
      If Err <> 0 Then
        Err.Clear
        Cell.Interior.ColorIndex = 43
      Else
        Cell.Interior.ColorIndex = 6
      End If
    End If
  Next Cell
End Sub