Hi,

I'm trying to findout the number of Partial Horizontal Page Breaks.

I've found the following in the Help, but it doesn't seem to work: -

Code:
For Each pb in Worksheets(1).HPageBreaks
    If pb.Extent = xlPageBreakFull Then
        cFull = cFull + 1
    Else
        cPartial = cPartial + 1
    End If
Next
MsgBox cFull & " full-screen page breaks, " & cPartial & _
    " print-area page breaks"
The first question I have is is 'pb' declared as HPageBreak?

I've tried the code, but it doesn't seem to loop

Can anyone point me in the right direction?

Regards