Load PageBreaks for a Range in an Array

Hi Guys,

I'm trying to figure out if it's possible to load the pagebreaks for a range into an array without looping. Just checking, becuase looping is taking about 20 seconds or so.

Thanks for any help

Doesn't Work

PgBreakRows = Sheet2.[EYIDStart].Resize(61).EntireRow.PageBreak

Works but takes a second

c = 0
For i = 0 To CountofAssets - 1
    ReDim PgBreakRows(c)
    If Sheet2.Rows([EYIDStart].Offset(i).Row).PageBreak <> xlPageBreakNone Then
        PgBreakRows(c) = Sheet2.[EYIDStart].Offset(i).Row
    End If
Next