VBA/Excel/Access/Word/Excel/CountA

Returns a count of non-blank cells in a selection

   <source lang="vb">

Sub CountNonBlankCells()

   Dim myCount As Integer                  
   myCount = Application.CountA(Selection)
   MsgBox "The number of non-blank cell(s) in this selection is :  " & myCount, vbInformation, "Count Cells"

End Sub

</source>