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