How can you count the number of cells that are blank but contain formulas. You cannot check for spaces because it is not = to spaces. You cannot check > 0 (My data is a number if not blank) or at least I cannot get it to work.

Here is my code

Sub countblanks()
Dim c As Long
Dim myrange As Variant
For Each myrange In Range("C2:C11358")
If myrange > 3700000 Then
   c = c + 1
End If
Next myrange
MsgBox ("Non Matches " & c)
End Sub
Help would be appreciated. Thanks