LastRow = Range("A" & Rows.Count).End(xlUp).Row
For RowCount = 20 To LastRow Step 20
ActiveSheet.HPageBreaks.Add Befo=Range("A" & RowCount)
Next RowCount
End Sub

"Mery" wrote:

Hi, I have a little problem and I hope to find some useful answers!
Particulary , I wont to do for once command in exel in one Sheet make each
twentieth row to be break page and get it at once the 500 break pages.

Any help will be valuable!
Thanks in advance!
Mery