Como comparar valores e identificar los repetidos

Esta función t pude indicar si el arreglo tiene o no elementos repetidos regresando cuantos fueron lozalidados..
Si regresa algo mayor que 1 implica que un elemento esta repetido...
Espero t sirva...
Sub test()
 MsgBox (CStr(Repetidos("A1:A10")))
End Sub
Function Repetidos(lista As String) As Integer
Dim j As Variant
Dim i As Variant
Dim cuantas As Integer
cuantas = 0 'inicializa cuantas hay de cada elemento...
For Each j In ThisWorkbook.Worksheets("Hoja1").Range(lista)
    For Each i In ThisWorkbook.Worksheets("Hoja1").Range(lista)
        If j = i Then
           cuantas = cuantas + 1
        End If
    Next
    If cuantas > 1 Then
       Exit For
    End If
    cuantas = 0
Next
Repetidos = cuantas
End Function