I have a workbook with 12 worksheets in it. They are all basically the same
so when I set the print area for one it could be the same for all 12
worksheets. Is there a way to do this all at once rather than 12 times?

Try this subroutine

Sub Macro1()
For Each ws In Worksheets
ws.Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$E$20"
Next
End Sub

Let me know if you need help adding a macro
best wishes
--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email

"oceanmist" wrote in message
...
I have a workbook with 12 worksheets in it. They are all basically the
same
so when I set the print area for one it could be the same for all 12
worksheets. Is there a way to do this all at once rather than 12 times?

Yes, I do. I don't have a clue how to do this.

"Bernard Liengme" wrote:

Try this subroutine

Sub Macro1()
For Each ws In Worksheets
ws.Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$E$20"
Next
End Sub

Let me know if you need help adding a macro
best wishes
--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email

"oceanmist" wrote in message
...
I have a workbook with 12 worksheets in it. They are all basically the
same
so when I set the print area for one it could be the same for all 12
worksheets. Is there a way to do this all at once rather than 12 times?

With you workbook open use the command Tools | Macro | Visual Basic Editor
In the Edit use Insert | Module
Now copy and paste my module to the main window in the Editor
Is some lines get split into two in the email, carefully use
delete/backspace to fix. The longest line is
ActiveSheet.PageSetup.PrintArea = "$A$1:$E$20"
and should appear as one line

Return to the worksheet; Use Tools | Macro | Macros and click on TryThis

best wishes (don't be afraid to ask for clarification)
--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email

"oceanmist" wrote in message
...
Yes, I do. I don't have a clue how to do this.

"Bernard Liengme" wrote:

Try this subroutine

Sub Macro1()
For Each ws In Worksheets
ws.Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$E$20"
Next
End Sub

Let me know if you need help adding a macro
best wishes
--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email

"oceanmist" wrote in message
...
I have a workbook with 12 worksheets in it. They are all basically the
same
so when I set the print area for one it could be the same for all 12
worksheets. Is there a way to do this all at once rather than 12 times?

Oops, my macro is called Macro1 so click on in last step!
--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email

"oceanmist" wrote in message
...
Yes, I do. I don't have a clue how to do this.

"Bernard Liengme" wrote:

Try this subroutine

Sub Macro1()
For Each ws In Worksheets
ws.Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$E$20"
Next
End Sub

Let me know if you need help adding a macro
best wishes
--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email

"oceanmist" wrote in message
...
I have a workbook with 12 worksheets in it. They are all basically the
same
so when I set the print area for one it could be the same for all 12
worksheets. Is there a way to do this all at once rather than 12 times?