Page Break Object and the VPage Breaks Collection Example

Sub AddVPageBreaks()

Dim oCell As Range

'Loop through all the cells in the first column

of the sheet

For Each oCell In ActiveSheet.UsedRange.Rows(l).


'If the font size is 16, add a page break to

the left of the cell

If oCell.Font.Size = 16 Then

ActiveSheet.VPageBreaks.Add oCell

End If


End Sub

Was this article helpful?

0 0
The Accidental Blogging Millionaires

The Accidental Blogging Millionaires

Get Inspired By The Most Popular Bloggers Online! If You Want To Skyrocket Your Success With Business And Improve Your Overall Life You Need To Have A Look At The Accidental Blogging Millionaires! Business can be a fight, particularly when you’re trying to establish one online and like all fights, to succeed you must find the winning techniques and apply them.

Get My Free Ebook

Post a comment