I forgot to add:

Sheets ("xxx").Select
Range("A1").Select (Assuming data starts here)
Selection.CurrentRegion.Select

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