How to set PrintArea to CurrentRegion in macro?

[General Ledger]

Dear All,

I am trying to set the print area in a macro to the current region based on cell A3.

I have the following code:

ActiveSheet.PageSetup.PrintArea = Range("a3").CurrentRegion


I get the error:

Run-time error '1004': The text you entered is not a valid reference or defined name.

Please advise what I have done wrong?

Thanks,

GL

 

[VoG]

Try

ActiveSheet.PageSetup.PrintArea = Range("a3").CurrentRegion.Address

 

[Andrew Poulsom]

Try:

ActiveSheet.PageSetup.PrintArea = Range("a3").CurrentRegion.Address

 

[General Ledger]

Peter and Andrew,

Thank you so much for the very speedy responses. Of course your solutions worked perfectly.

GL