PageSetup.PrintArea - Automation Error

[mikeymay]

I have been using the following code to set up a print range

strPrintRange = Range("Dashboard_OutputAll").Address
            
ActiveSheet.PageSetup.PrintArea = strPrintRange

All worked as required until it didn't for no reason.

strPrintRange is a string variable of "$B$2:$Z$1088"

I am now getting the following error
Run-time error '-2147319767 (80028029)':

automation error
Invalid forward reference, or reference to uncompiled type

I have been tweaking code in the procedure to sort out page breaks, etc but other than this, no major difference between when it did work an when it stopped working.


TIA

 

[mikeymay]

UPDATE

Strangely, when I activate another workbook that is open and allow the code to execute, it executes and sets up the defined range in the active workbook.

If I then activate the correct workbook and re-run that line of code, I get the error again.

Assuming it's something tot do with the file but I've never seen this kind of issue before.

 

[mikeymay]

FURTHER UPDATE

With the Activesheet, I set this up as a Worksheet variable and changed the code to

wsCRMDb.PageSetup.PrintArea = strPrintRange

Which worked......

No idea why the Activesheet stopped working but I suppose I have a fix!