Find page break and unhide rows

[Ben_goldfinch]

Im after some code to unhide rows in a range until a certain named row is at the bottom of the page

i have named the bottom row "pageendrow"

and i have hidden 20 rows named the first one "evenrowstart" and the last of the 20 rows "evenrowend"

i was think some sort of loop from 1 to 20 testing for the page break each time it returns a negative result it unhides a row and was wanting those rows to be a row height of 25.5 if that makes sense or the other option would be to have just 1 row whos's row height gets increased until the pageendrow hits the pagebreak

or open to other ideas

 

[mole999]

probably quicker to unhide all rows, and then close up those that are not required behind an application.screenupating = false

 

[Ben_goldfinch]

ive tried what you suggested, which works as a standalone subroutine, but when i call it up from another macro it only registers 1 page
this counts the number of pages in the print area, then hides a cell, then counts again and keeps going until it gets a difference


Sub demo()
'
' demo Macro
'
Dim Difference$
Dim Offsetno$
Dim Pages$
Dim Hpages$
Offsetno = 0
Difference = 0


Do Until Difference = 1


Pages = (ActiveSheet.HPageBreaks.Count + 1)
MsgBox Pages
Range("evenrowsstart").Offset(rowoffset:=Offsetno).EntireRow.Hidden = True






Hpages = (ActiveSheet.HPageBreaks.Count + 1)


Difference = Pages - Hpages
MsgBox Hpages


Offsetno = Offsetno + 1


Loop


End Sub