Why not loop through the all sheets and print the range

Sub test()
Dim sh As Worksheet
For Each sh In Sheets(Array("Sheet1", "Sheet3"))
sh.Range("A3:R66").PrintOut
Next sh
End Sub




--
Regards Ron de Bruin
http://www.rondebruin.nl


"Kyaba" wrote in message oups.com...
Hi Ron,

Thanks for your response.

With regards to my sheet, I am trying to limit the printing to a
certain section of the worksheet. For example category1 will have the
print areas of A3:R66, while category2 will have a print area of A68 to
R134. This is also how it is set up on 6 other worksheets.

So what I would like to do is set up a macro that when run would print
all the sheets corresponding to category1, thus printing out 6 sheets
from the 6 different tabs. The problem I was facing originally was
naming the print areas for all 66 categories and then again for all 6
sheets.