Disable a Function

[hartless43]

Here is a Function given to me by FLUFF (on another forum) and would like to be able to disable it based on a cell value because I am using an Algorithm that creates a Sudoku Solution in about 10-15 seconds but with a function that is calculating faster than a speeding bullet it takes a very, very, forever for the Algorithm to create a solution. I am currently using a YES or NO to not show the mistakes.

Function CountByFontColor(Data As Range, CellRefColor As Range)

    Dim CellColor As Long
    Dim CurrentCell As Range
    Dim CountFont As Long
Application.Volatile
CountFont = 0
CellColor = CellRefColor.Font.ColorIndex
    For Each CurrentCell In Data
If CellColor = Evaluate("CFColour(" & CurrentCell.Address & ")") Then
    CountCell = CountCell + 1
End If
Next CurrentCell
    CountByFontColor = CountCell

End Function
Function CFColour(Cl As Range) As Double
   CFColour = Cl.DisplayFormat.Font.ColorIndex
End Function
'writen by Fluff13 Excel Forum Guru

I would like to have a statement like this: If Range("W14") = "NO" then End Function

 

[Peter_SSs]

Try adding this near the start of the function

If UCase(Range("W14").Value) = "NO" Then Exit Function

 

[hartless43]

Thanks, Peter, put that in and it worked.

 

[Peter_SSs]

You're welcome. Thanks for the confirmation.

 

[Peter_SSs]

Thanks, Peter, put that in and it worked.

The marked solution has been changed accordingly. In your future questions, please mark the post as the solution that actually answered your question, instead of your feedback message as it will help future readers. No further action is required for this thread.