Hello did not know if there was any way to make the Function below faster.
VBA Code:
Public Function CC(CellRange As Range, TCL As Range)
Dim TargetCL As Long, CT As Long, CL As Range
Dim Ans As String
Application.Volatile
TargetCL = Evaluate("cfcolour(" & TCL.Address & ")")
Set CL = Range("DV_DAT_FTO")
For Each CL In CellRange
If Evaluate("Cfcolour(" & CL.Address & ")") <> TargetCL And CL.Value = TCL.Value Then CT = CT + 1
Next CL
CC = CT
Sheets("EMPLOYEE LIST").Calculate
End Function