Bruce,
If you want the bottom of the page according to Excel/page set up/printer
margins etc the you want automatic page breaks.
If you are inserting page breaks, then you are deciding where the end of the
page is and you need to decide where "Add Befo=ActiveCell" should be
located.

In relation to pagebreaks there is also the "ExecuteExcel4Macro()" function
(with the correct argument, that I've forgotten at the moment) that return
page break info and seems more reliable than the newer collection.

However, as you page size is already set, do you mean to place/size your
charts correctly instead ?

NickHK

"Bruce" wrote in message
...
I have a worksheet in which I add a number of charts via vba. The number
of
charts added changes (eg may be 6 or 20 or more) depending on my data. The
arragement on the page is 2 x n where there are 2 across the page that fit
the print area.

How do I find the bottom of each page so that I can insert the required
page
breaks into the worksheet with the following or something else;

ActiveWindow.SelectedSheets.HPageBreaks.Add Befo=ActiveCell

Bruce