Guys

I use the following to draw 10 rectangles

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
B = B + 230

Next a

is there a way of inserting a page break after 4 rectangles are drawn?


Any Help Appreciated

Mark