delete multiple pagebreaks

[snax500]

In Excel2000, how do I combine these statements into one (for rows 5-6):

For Each sht In ActiveWindow.SelectedSheets
sht.Rows(5).PageBreak = xlNone
sht.Rows(6).PageBreak = xlNone
Next

I wanted somtething like this (but it does not work):

sht.Rows(5, 6).PageBreak = xlNone

Thanks

 

[Tom Ogilvy]

I didn't test it, but

sht.Rows("5:6").PageBreak = xlNone

 

[bg]

It doesn't seem to work. All it does is delete the first page break.

Thanks

 

[Tom Ogilvy]

Guess you will need to loop then.