excel VBA insert pagebreak after shape

Please edit your post... highlight the code and hit the "#" icon which will put code tags in to format your post better.

This should work... of course since 4 shapes are bigger than a page, it will still look a little strange unless you fit the width to the page in which case it formats ok...

ActiveSheet.ResetAllPageBreaks
For a = 1 To 10

Sheet1.Shapes.AddTextbox(msoTextOrientationHorizontal, 350, B, 300, 200).TextFrame.Characters.Text = Worksheets("Sheet2").Range("A" & a).Value & vbNewLine & Worksheets("Sheet2").Range("B" & a).Value & vbNewLine & Worksheets("Sheet2").Range("C" & a).Value & vbNewLine & Worksheets("Sheet2").Range("D" & a).Value & vbNewLine & Worksheets("Sheet2").Range("E" & a).Value & vbNewLine & Worksheets("Sheet2").Range("F" & a).Value & vbNewLine & Worksheets("Sheet2").Range("G" & a).Value & vbNewLine & Worksheets("Sheet2").Range("H" & a).Value
ActiveSheet.Shapes.AddShape _
(msoShapeFlowchartProcess, 65, B, 300, 200).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 11
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.Visible = msoTrue
If a Mod 4 = 0 Then ActiveSheet.HPageBreaks.Add before:=Range("A" & Selection.BottomRightCell.Row + 1)
B = B + 230

Next a