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"