Thanks for reply but same error msg

On Nov 3, 2:39*pm, "Jim Cone" wrote:
Try it in PageBreakPreview... ActiveWindow.View = xlPageBreakPreview
You may also have to put a temporary value in an empty cell below your data.
Then remove the temp value when you are done.
--
Jim Cone
Portland, Oregon USAhttp://www.mediafire.com/PrimitiveSoftware
(Special Print XL add-in: *long columns printed side by side)

"Keith Willis"
wrote in ...







Hi

I'm trying to use the following code to get all the horizontal page
breaks

Dim varArray() As Variant
Dim x As Variant
Dim i As Integer

* *For Each x In objWkBk.Worksheets("sheet1").HPageBreaks
* * * *i = i + 1
* * * *ReDim Preserve varArray(i)
* * * *varArray(i) = x.Location.Row
* *Next x

objWkBk is in separate instance of excel.
The problem is if there is more than 1 page break the code errors with
a subscript out of range. Any ideas?