or another which does specifically what you describe.

set rng = Range(Range("B9"),Range("B9").End(xlDown).End(xlTo Right))
ActiveSheet.PageSetup.PrintArea = rng.Address(external:=True)

--
Regards,
Tom Ogilvy

"Mark" wrote in message
om...
It used to be easy in the "old" days to capture a macro in which you
anchor the upper left most cell of the target range and then hold
shift and press the right arrow, then the down arrow to highlight a
range of cells.

You could then make this the print area, change formatting, etc.

I haven't learned the syntax for such in Excel's VB. It would be
insightful to see how to write this in a macro (module) and also in
the sheet where it could be executed with an active-x conrol.

Thanks in advance for any examples, suggestions, etc.

Mark