it counting the numbers in the formula in the cells, that a value greater than 20
Function CountFormulaeGT(inputrange As Range, intGTcriteria As Integer) As Integer
Application.Volatile
CountFormulaeGT = 0
For Each c In inputrange
If Left(c.Formula, 1) = "=" Then
If c.Value > intGTcriteria Then
CountFormulaeGT = CountFormulaeGT + 1
End If
End If
Next
End Function