Displayed Collumns and Rows

[John Tripp]

I would like to find the actual rows displayed in the
activesheet. Any code examples would be greatly
appreciated.

Thanks

 

[John Wilson]

John,

Try these:

ActiveWindow.VisibleRange.Rows.Count
ActiveWindow.VisibleRange.Columns.Count

John

 

[Ron de Bruin]

Not sure if I understand you?

Excel 97 and up have 65536 rows

' rows in sheet
MsgBox Rows.Count

' this count the rows in the usedrange(a1:till the last cell)
' is not always correct
MsgBox ActiveSheet.UsedRange.Rows.Count

Or the CurrentRegion
MsgBox Range("A1").CurrentRegion.Rows.Count

Or do you mean visible rows??
MsgBox Columns("A:A").SpecialCells(xlCellTypeVisible).Cells.Count