Function CONTARCOLOR(celdaOrigen As Range, rango As Range)
[Link]
'Variables
Dim celda As Range
'Recorremos todas las celdas del rango
For Each celda In rango
'Compara la propiedad [Link]
If [Link] = [Link] Then
CONTARCOLOR = CONTARCOLOR + 1
End If
Next celda
End Function