I have a workbook with @40 tabs.

Each tab is 4 pages with each page representating a quarter. I want t
be able to print a specific quarter of each tab.

For example, if it is Q2 then I want to be able to click a button an
Q2 for each tab to print.

Any suggestions??

--
Message posted from http://www.ExcelForum.com

Assume Q2 is in M1:Z50 on each page

for each sh in Workbooks.worksheets
sh.Range("M1:Z50").Printout
Next

--
Regards,
Tom Ogilvy

"tratliff " wrote in message
...
I have a workbook with @40 tabs.

Each tab is 4 pages with each page representating a quarter. I want to
be able to print a specific quarter of each tab.

For example, if it is Q2 then I want to be able to click a button and
Q2 for each tab to print.

Any suggestions???


---
Message posted from http://www.ExcelForum.com/

I tried the for each but got a Compile Error:

Method or data member not found.

Please help!!!

--
Message posted from http://www.ExcelForum.com

Dim sh as Worksheet
for each sh in Workbooks("Myworkbook.xls").worksheets
sh.Range("M1:Z50").Printout
Next

my typo, sorry. Change Myworkbook.xls to reflect the name of the workbook
with the quarterly data.

--
Regards,
Tom Ogilvy


"tratliff " wrote in message
...
I tried the for each but got a Compile Error:

Method or data member not found.

Please help!!!!


---
Message posted from http://www.ExcelForum.com/

What if I don't want the range to print on EVERY worksheet..

--
Message posted from http://www.ExcelForum.com