Resaltar números únicos de acuerdo a un rango

Puedes usar este código:

Sub BuscaRepes()
Dim cl As New Collection
On Error GoTo hayrepe
Set RangoNums = Range("A1:X36")
For Each Celda In RangoNums
K = CStr(Celda)
cl.Add Celda.Address, K
Celda.Font.Color = 225 'si no exixte lo pone en rojo
repe:
Next
For Each CeldaR In RangoNums
If CeldaR.Font.Color = 225 Then RR = RR + 1
Next
MsgBox "Hay " + Str(RR) + " elementos no repetidos"
Exit Sub
hayrepe:
Range(cl(K)).Font.Color = 0 'si se repite lo vuelve a poner en negro
Resume repe
End Sub

y si en vez de darle color al numero mejor me resaltara la celda ?