Hallo Peko
Korrigiert
Der Bezug ist vorhanden,daher ohne weitere Sheet Angabe innerhalb von Range oder Union
ActiveSheet.PageSetup.PrintArea = Range(Cells(Y, X) ,Cells(Y, X)).Address
oder
ActiveSheet.PageSetup.PrintArea =Union(Range(Cells(Y, X) ,Cells(Y, X),Range(Cells(Y, X) ,Cells(Y, X)).Address
Gruß Nighty