Count Property

Returns the number of objects in the specified collection. Read-only Long.

expression   Required. An expression that returns one of the objects in the Applies To list.

Example

This example sets variables to the number of columns and the number of rows in the visible range on the active worksheet, and then formats the color of the cells in every other row.

Sub Format_Odd_Rows()
    Dim rngUsed
    Dim iUsedRows
    Dim iUsedColumns
    Dim shtActive
    Dim iCtr
    
    Set shtActive = Spreadsheet1.ActiveSheet
    
    ' Set a variable ot the used range of the active sheet.
    Set rngUsed = shtActive.UsedRange
    
    ' Get the count of used rows in the active sheet.
    iUsedRows = rngUsed.Rows.Count
    
    ' Get the count of used columns in the active sheet.
    iUsedColumns = rngUsed.Columns.Count
    
    ' Loop through every odd row in the used range.
    For iCtr = 1 To iUsedRows Step 2
    
        ' Color the background of the cells green.
        shtActive.Range(shtActive.Cells(iCtr, 1), shtActive. _
            Cells(iCtr, iUsedColumns)).Interior.ColorIndex = 43
    Next
End Sub