I need to set the print area for every sheet in the workbook. When I tried
grouping the sheets first, my option to set the print area was disabled. Any
ideas?

Would one of the following suits your needs?


Sub myMacro()
For Each ws In Worksheets
ws.PageSetup.PrintArea = "$A$1:$B$2"
Next ws
End Sub


Sub anotherPossibility()
For ws = 1 To 2
Sheets(ws).Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$C$3"
Next ws
End Sub


"scru_ball" wrote:

I need to set the print area for every sheet in the workbook. When I tried
grouping the sheets first, my option to set the print area was disabled. Any
ideas?

I have 20 different workbooks each with 26 different worksheets so I would
like to find a way not to select each one individually. When I try to select
all sheets in a workbook, the option to set print area is grayed out.

"FiluDlidu" wrote:

Would one of the following suits your needs?


Sub myMacro()
For Each ws In Worksheets
ws.PageSetup.PrintArea = "$A$1:$B$2"
Next ws
End Sub


Sub anotherPossibility()
For ws = 1 To 2
Sheets(ws).Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$C$3"
Next ws
End Sub


"scru_ball" wrote:

I need to set the print area for every sheet in the workbook. When I tried
grouping the sheets first, my option to set the print area was disabled. Any
ideas?