Uses nested For/Next loops to count the total number of cells used in all open worksheets: : Cell « Excel « VBA / Excel / Access / Word






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

Uses nested For/Next loops to count the total number of cells used in all open worksheets:

 
Public Sub numCells()
    Dim I As Integer
    Dim K As Integer
    Dim numCells As Long

    For K = 1 To Workbooks.Count   'Loop through workbooks
        Workbooks(K).Activate
        For I = 1 To Worksheets.Count  'Loop through worksheets
            numCells = numCells + Worksheets(I).UsedRange.Count
        Next I
    Next K
    MsgBox (numCells)
End Sub








Related examples in the same category

1.Is a cell empty
2.Get the last cell
3.Magic Squares
4.Nest If statement in Do Loop While with comparison operators
5.Nest If statement in Do Loop Until for cells
6.Is active cell empty
7.Transposing is taking a rectangular block of data and rotating it so that columns become rows and vice versa.
8.Selects cell G4
9.A better way to write to a range:Filling a range
10.Use arrays to fill ranges faster
11.Moving the pointer to the cell containing the greatest value