Defined a print area
Sub printArea() ActiveSheet.PageSetup.printArea = "" ActiveSheet.Names("Print_Area").delete End Sub