Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Returns a count of all cells in a selection
Sub CountAllCells()
    Dim myCount As Integer                    
    myCount = Selection.Count
    MsgBox "The total number of cell(s) in this selection is : " _
         & myCount, vbInformation, "Count Cells"
End Sub