Function CONTARCOLORTIOTECH(ColorBuscado As Range, columna As Range)
Dim celda As Range
For Each celda In columna
If celda.Interior.Color = ColorBuscado.Interior.Color Then
contar = contar + 1
End If
CONTARCOLORTIOTECH = contar
Next celda
End Function