brilliant!

--
Thanks
"chris" wrote in message
...
For Each s in Sheets
x = x +1
LstRow = s.UsedRange.Offset _
(s.UsedRange.Rows.Count - 1). _
Resize(1).Row
Debug.Print s.name & " Has " & LstRow & " Used Rows"
Next
Debug.print "Total number of sheets = " x
----- Gorr wrote: -----

automating excel 97
excel file is saved in page brake preview.
I'm opening the file programmaticaly and need to figure how many
pages, and
how many rows on each page defined.

--
Thanks