JB,

This: Selection.CurrentRegion.Select

Will select the current region providing that there are no entire rows or
columns blank, i.e. it will select from the cell uppermost and to the left
and bottommost and to the right before the next blank columns and rows.

Regards

Colin
"JB2010" wrote in message
...
Hi

Can someone list the full script i would need for a macro that would
highlight all the non blank cells of a worksheet & set that as the print
area.

I have tried recording my own, basically; highlight Cell A1, Ctrl+Shift
Down
then Control+Shift Right, but the resulting script is still specific to
the
cell references of the sheet i used to record on.

I do not know how to program it for just all active cells regardless of
what
they are, from sheet to sheet.

Any help gratefully recieved.


Cheers


jb