I get unable to set print area error on the last line of code...
Range("b12:" & Range("j65536").End(xlUp).Address).Select
Set prtselect = Selection
ActiveSheet.PageSetup.PrintArea = prtselect


any help is appreciated!