Something a bit odd. Using your code if i scroll on the workbook the
the row with the pagebreak the code runs, but i have to do this for
each pagebreak.


On Nov 4, 1:48*pm, Keith Willis wrote:
Tried that still the same problem.

though i've noticed that when i try to open a watch on the new
worksheet to check the pagebreaks i get the msg "system policy prevent
loading of manifests" wonder if it might be related.

On Nov 3, 7:10*pm, "Jim Cone" wrote:







N = objWkBk.Worksheets("Sheet1").HPageBreaks.Count
For X = 1 to N
* *varArray(X) = objWkBk.Worksheets("Sheet1").HPageBreaks(X).Locati on.Row
* 'other stuff needed
Next
'---
Might be a problem if the Application is not visible.
My original comments still apply.
--
Jim Cone
Portland, Oregon USAhttp://www.mediafire.com/PrimitiveSoftware
(Data Rows Excel add-in: Color rows, Delete rows, Insert rows)

"Keith Willis"

wrote in ...
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 USA
http://www.mediafire.com/PrimitiveSoftware
(Special Print XL add-in: long columns printed side by side)
"Keith Willis"
wrote in messagenews:
...
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?