Ahh. I should have looked more closely:

ActiveSheet.HPageBreaks.Add Befo=ActiveSheet.Range("B53")

when you did this:
ActiveSheet.HPageBreaks.Add Befo="B53"

That "b35" doesn't mean anything more than a string to excel. It would be like:

ActiveSheet.HPageBreaks.Add Befo="goFigure"



GoFigure wrote:

Thanks, Dave.

Here's what's in that tiny image:

"Run-time error '-13':

Type mismatch"

Thanks for any help.

- Al

--
GoFigure
------------------------------------------------------------------------
GoFigure's Profile: http://www.excelforum.com/member.php...fo&userid=4274
View this thread: http://www.excelforum.com/showthread...hreadid=490001

--

Dave Peterson