Returns a count of non-blank cells in a selection : CountA « Excel « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Excel
3. CountA

Returns a count of non-blank cells in a selection

 

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

 

Related examples in the same category