Set Print Area Grouped Worksheets

[Poiuytresa]

Ive a file with multiple worksheet and trying to set print area for all worksheets at once (grouped). This macro posted by Juan Pablo works fine with one sheet but when I group the worksheets this macro doesnt work. I would like to set print area when the worksheets are grouped so I can run the macro only once.


Sub SetArea()
ActiveSheet.PageSetup.PrintArea = Range("A1",Range("M65536").End(xlUp)).Address
End Sub

Thanks

 

[gauntletxg]

You'll need to use a loop

Dim ws As Worksheet
For Each ws In Worksheets
ws.PageSetup.PrintArea = Range("A1",Range("M65536").End(xlUp)).Address
Next ws

 

[Poiuytresa]

Thank you
But still setting print area only in the first worksheet

Sub SetArea()
Dim ws As Worksheet
For Each ws In Worksheets
ws.PageSetup.PrintArea = Range("A1", Range("e65536").End(xlUp)).Address
Next ws
End Sub

Am I doing anything wrong?
Thanks

 

[Poiuytresa]

Hi

Thank you
But still setting print area only in the first worksheet

Sub SetArea()
Dim ws As Worksheet
For Each ws In Worksheets
ws.PageSetup.PrintArea = Range("A1", Range("e65536").End(xlUp)).Address
Next ws
End Sub

Am I doing anything wrong?
Thanks