Shorten Code & clean up

I need help cleaning up this code. I am new to VB, but it does work for me. I am trying to have each sheet 6 thru 20 move the vertical page break to the right. It is working this way, however I was hoping to find a shorter code to do all sheets 6-20.

Please Login or Register  to view this content.

Hi,

One way would be a simple loop. This is untested but something like:

Please Login or Register  to view this content.

HTH

Thank you Richard, it worked perfect. I am new but I am starting to get it....YEAH!!!!

If you reset all page breaks, what's the point of the DragOff? Doesn't this do the same thing?

Please Login or Register  to view this content.