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?