Count property returns the number of cells in a range (all cells, not just the nonblank cells). It's a read-only property.
Sub count() MsgBox range("A1:C3").count End Sub