Try
Set Rng = Sheets("Results").Range("nonvalidreport")



"Mike H." wrote in message
...
I have a sub on a worksheet calculate area and the sub has these 4 lines:

Sheets("Results").Select
Set Rng = Range("nonvalidreport")
ActiveSheet.PageSetup.PrintArea = Rng.Address
ActiveWindow.SelectedSheets.PrintPreview

The sub is not on this sheet. But I get an error 1004 on line 2. If I
run
these 4 lines in a module it works, but I can't figure out how to call a
sub
in a module from the area where I am. HELP!