You can loop through your rows and add up the row height. Here is a simple
example:
For i = 1 To 5
r = ActiveCell.Offset(i, 0).RowHeight + r
Next
MsgBox r
--
Damon Longworth
Don't miss out on the 2005 Excel User Conference
Sept 16th and 17th
Stockyards Hotel - Ft. Worth, Texas
www.ExcelUserConference.com
"Andibevan" wrote in message
...
Hi All,
I have a table of data in excel that I need to split into numerous
sub-tables based on the total row height, in order to copy and paste them
into a powerpoint presentation.
I need to split up the tables by the total height of all the rows that can
be fitted onto a page. i.e. if I specify 20pt as the max row height per
page
and the data table is 100pt I would need 5 pages to split up this data.
(this does not take into account the headers that would be copied to each
page).
Any help would be gladly appreciated - Thanks
Andi