Trying to automate setting the print area on a sheet I use as a template and
am having problems.

The section of code is:

Set myprint = Range(mytop, mybot)
myprint.Select
ActiveSheet.PageSetup.PrintArea = myprint

While the required area is selected on screen OK, the last line gives me a
Run-time error '1004: Unable to set the PrintArea property of the PageSetup
class.

Have tried some alternatives but I'm stumped.

Any help would be appreciated

Regards
Philip