hi.
you got a lot of suggestions on this on. Here's mine
i use this syntax every moning.

activesheet.pagesetup.printarea = "PackingList"


-----Original Message-----
Hi All

having trouble (Excel 2000) setting the print area
i create a form, populated with values from a database
and then copy this
form to a new workbook. In the original form i created a
named range,
which, of course goes into the new book. What i want to
do is use the name
range to set the print area for the form in the new
workbook.

This process is all run from the OKbutton on a userform.

For some reason i keep getting a "can not set print area"
message no matter
which way i try

currently my code (after trying everything i can think
of) goes like this
sheets("packinglist").activate
sheets("packinglist").copy
unload userform2
msgbox "You can now print the packing list"
i =workbooks.count
workbook(i).activate
sheets("packinglist").activate
activesheet.pagesetup.printarea = range("PackingList")

any ideas?

Thanks
JulieD



.