Excel VisualBasic Script

Sub count()
    MsgBox range("A1:C3").count
End Sub