Excel VisualBasic Script

Sub printArea()
     ActiveSheet.PageSetup.printArea = ""
     ActiveSheet.Names("Print_Area").delete
End Sub