Select Entire Sheet except print area

[LenPL]

Hi,

I am looking for a macro or a solution to select the entire work sheet except the print area.

Thanks,

LenPL

 

[Tetra201]

Try this:

Sub CtrlA_Excl_PrtA()
    If ActiveSheet.PageSetup.PrintArea = "" Then Exit Sub
    Set PrtA = Range(ActiveSheet.PageSetup.PrintArea)
    Set SelA = Range(Cells(1, PrtA.Column + PrtA.Columns.Count), Cells(1, Columns.Count)).EntireColumn
    Set SelA = Application.Union(SelA, Range(PrtA.Row + PrtA.Rows.Count & ":" & Rows.Count))
    If PrtA.Column > 1 Then Set SelA = Application.Union(SelA, Range("A1", Cells(1, PrtA.Column - 1)).EntireColumn)
    If PrtA.Row > 1 Then Set SelA = Application.Union(SelA, Range("1:" & PrtA.Row - 1))
    SelA.Select
End Sub

 

[Mister H]

Not sure but hopefully this will get you heading in the right direction or at least give you some ideas

delete everything but print area

Good Luck

 

[LenPL]

Perfect! Thank you Tetra.
I can't believe this isn't a standard feature or it has been discussed on 'google'.

 

[Tetra201]

Perfect! Thank you Tetra.
I can't believe this isn't a standard feature or it has been discussed on 'google'.

You are welcome.

Yes, unbelievable but true.