found = false
for i = 10 to 200
if Sheet1.Cells(i, 1).Row.PageOn < pageAt then
MsgBox("New Page")
pageAt = Sheet1.Cells(i, 1).Row.PageOn
Found = true
exit for
end if
next i
if found = true then
MsgBox("added new Page")
end if

"NateBuckley" wrote:

Hello I'd like someway to figure out if my loop ends up on a new page, and I
was wondering if there was a check to see if something is on a different page?

For example I was thinking of something along the lines:
dim pageAt as Integer
pageAt = Sheet1.Cells(10, 1).Row.PageOn

for i = 10 to 200
if Sheet1.Cells(i, 1).Row.PageOn < pageAt then
MsgBox("New Page")
pageAt = Sheet1.Cells(i, 1).Row.PageOn
end if

I know there is no PageOn method/property etc but is there anything like
that?
Thanks for anyone who can throw some advice my way.

Nate
next i