Maintain a Print Area even when rows or columns are deleted

[lunbryd]

I am looking to set up a Print Area on a sheet that will remain even when I delete columns. Currently my print area is A1:G24 and when I delete columns A and B, my print area becomes A1:E24. I would like to set up the print area so when columns within that range are deleted, the data that moves in from the columns outside that range now become part of the print area.

Thanks.

 

[Logit]

.
Paste this in the Sheet Level Module :

Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
    Worksheets("Sheet1").PageSetup.PrintArea = "$A$1:$G$24"
End Sub

 

[Tetra201]

Try going to the Name Manager and changing the "Refers to:" of your print area from =Sheet1!$A$1:$G$24 to =INDIRECT("Sheet1!$A$1:$G$24")

 

[lunbryd]

.
Paste this in the Sheet Level Module :

Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
    Worksheets("Sheet1").PageSetup.PrintArea = "$A$1:$G$24"
End Sub

Try going to the Name Manager and changing the "Refers to:" of your print area from =Sheet1!$A$1:$G$24 to =INDIRECT("Sheet1!$A$1:$G$24")

These both worked for me. Thanks, guys.

 

[Logit]

.
You are welcome !