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?