Yes! that's one (1).

wrote in message
oups.com...
You've typed pagebreaks(ONE) not pagebreaks(i)
JON JON wrote:
Hello NG,

Anyone knows why I keep getting the same debug.print result using the
code
below? Isn't in suppose to change? Any line of code that I need to
add?
Please help!

Sub Testing()
Dim i As Integer
For i = 0 To 50
ActiveSheet.PageSetup.Zoom = 100 - i
Debug.Print ActiveSheet.VPageBreaks(1).Location.Address
Next i
End Sub

TIA

Jon-jon