Function myCount(myRange)
Application.Volatile
For Each c In myRange
If IsNumeric(c) And c.HasFormula = False And c < "" Then myCount = myCount
+ 1
Next
End Function

Put in regular module and use it :
=myCount(A1:A5)



"Ed Davis" skrev:

How would I use count when a formula is in cells but if the cell has not
data except the formula how would I use count to count only the cells that
have a number and disregard the cells with just the formula.

Thanks in advance.

Ed Davis