Hi. Pls try this.<pre>
Sub test()
Dim objBreak As HPageBreak, rngLine As Range
ActiveWindow.View = xlPageBreakPreview
For Each objBreak In ActiveSheet.HPageBreaks
Set rngLine = objBreak.Location
Debug.Print rngLine.Address
Next
ActiveWindow.View = xlNormalView
Set objBreak = Nothing: Set rngLine = Nothing
End Sub</pre>
This message was edited by Colo on 2002-04-23 02:38