Print sheets by "All Sheets in workbook, EXCEPT for specific named sheets". Possible?

[Corey]

I have several worksheets that i need to print off.
But since i can add more sheets to this workbook,
i want to be able to print off all the sheets (not by name) except for about
3 sheets i can name.

Currently i have a macro that specifies each sheet by name then prints 1
page from it.
But as i have now added a couple of sheets to it, i need to keep adding more
code to it to include the newly added sheets.

My thinking is if i can have a code that will print all sheets a specified
page(1) except for,
say sheet1, sheet2 and sheet3.

Is this possible?

Corey....

 

[Tom Ogilvy]

Dim sh as Worksheet
for each sh in Thisworkbook.Worksheets
if sh.Name <> "Sheet1" and sh.name _
<> "Sheet2" and sh.Name <> "Sheet3" then

' do something with Sh

end if
Next

 

[Corey]

Thanks Tom.
Too easy.

Cheers.

Dim sh as Worksheet
for each sh in Thisworkbook.Worksheets
if sh.Name <> "Sheet1" and sh.name _
<> "Sheet2" and sh.Name <> "Sheet3" then

' do something with Sh

end if
Next