Alternatively,

Activesheet.Range("A1:J10").Name = "Print_Area"

which avoids a trip to the slow PageSetup routine.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/
_______

JE McGimpsey wrote:
Take a look at "PrintArea Property" in XL/VBA Help:

ActiveSheet.PageSetup.PrintArea = "A1:J10"


In article ,
"JOE" wrote:


Hi,

how can i code in VBA for the print area for the area i
want to print?

regards,
JOE