VisibleRange Property Example

This example displays the number of cells visible on Sheet1.

Worksheets("Sheet1").Activate
MsgBox "There are " & Windows(1).VisibleRange.Cells.Count _
    & " cells visible"