Quick way for removing manual pagebreaks

P

Paul

Hi,
Is there a quicker way to remove the manual pagebreaks than the way below?

If ActiveCell.Rows.PageBreak = xlPageBreakManual Then
ActiveCell.PageBreak = xlNone
End If

Thanks in advance
Paul
 
Top