Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. 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