With code I would like to change the print_area range to be the same as
another range. Something like these three lines (though this doesn't work):

Dim r As Range
Set r = range("myRange")
Range("print_area") = r

How do I do this?

Arthur

Try:

ActiveSheet.PageSetup.PrintArea = "myRange"

Good luck

Ken
Norfolk, Va


ArthurJ wrote:
With code I would like to change the print_area range to be the same as
another range. Something like these three lines (though this doesn't work):

Dim r As Range
Set r = range("myRange")
Range("print_area") = r

How do I do this?

If you check "PrintArea" in the Help or the Object Browser, you will see if
returns/sets a String.
So you need to pass the address of the Range object, not the Range object
itself.

NickHK

"ArthurJ" wrote in message
...
With code I would like to change the print_area range to be the same as
another range. Something like these three lines (though this doesn't
work):

Dim r As Range
Set r = range("myRange")
Range("print_area") = r

How do I do this?