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

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

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

Please help!

"JON JON" wrote in message
...
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

Sorry if I sound impatient but I just really need help fast.

"JON JON" wrote in message
...
Please help!

"JON JON" wrote in message
...
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

I'm confused - I've answered the question - you are looping through an
iteration of a loop i times, but each time you are displaying the
Location.Address of ActiveSheet.VPageBreaks(ONE) and not the i'th
VPageBreaks.
JON JON wrote:
Sorry if I sound impatient but I just really need help fast.

"JON JON" wrote in message
...
Please help!

"JON JON" wrote in message
...
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