Using count, counta, countblank functions - vba

Question

I've tried count, counta, and countblank functions for this code, but it doesn't work. My code is:
Sheet1.Activate
If WorksheetFunction.CountBlank(Range(Cells(3, 3), Cells(50, 3))) > 0 Then
MsgBox "First Enter Data!"
Else
...
I want excel to do some calculations if all of the cells in range C3 to C50 are containing a number, and return the msgbox if they aren't.
All the other codes are true. I've checked them several times.
The problem is that even when all of those cells have numbers, the msgbox appears. I've tried many ways, but it keeps going wrong.
Please help me. Thanks a lot.

Answer 1

Edit:
1) if your numbers stored as text, use following code (it change cells format to "number format"):
Dim rng As Range
Set rng = ThisWorkbook.Worksheets("Sheet1").Range("C3:C50")
With rng
.NumberFormat = "0.00"
.Value = .Value
If WorksheetFunction.Count(.Cells) <> .Cells.Count Then
MsgBox "First Enter Data!"
Else
MsgBox "Everything is ok. All cells in range C3:C50 contains numbers"
End If
End With
2) You can also use this one:
Dim c As Range
Dim isAllNumbers As Boolean
isAllNumbers = True
For Each c In ThisWorkbook.Worksheets("Sheet1").Range("C3:C50")
If Not IsNumeric(c) Or c = "" Then
isAllNumbers = False
Exit For
End If
Next
If Not isAllNumbers Then
MsgBox "First Enter Data!"
Else
MsgBox "Everything is ok. All cells in range C3:C50 contains numbers"
End If
You may also want to read this: How to avoid using Select/Active statements