Tim,

Try inserting this line immediately after the cell declaration:

.ActiveWindow.SelectedSheets.HPageBreaks(".ActiveCell")

I did not bring my help files with me to DevCon, but I think this line should work.

Tom Molloy