Print Macro to Print all sheets except 3 Named sheets

[grady121]

VB beginner here. I'm looking for a macro that will print out all worksheets except for 3 named sheets. The named worksheets could anywhere in the workbook. For example, I'll use "Sheet 1", "Sheet 2" & "Sheet 5" as the named worksheets in a workbook containing 10 worksheets.

Any help would be welcome.

 

[Smitty]

Something like this:

<font face=Tahoma><SPAN style="color:#00007F">Sub</SPAN> foo()
    <SPAN style="color:#00007F">Dim</SPAN> ws <SPAN style="color:#00007F">As</SPAN> Worksheet
        <SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> ws <SPAN style="color:#00007F">In</SPAN> ActiveWorkbook.Worksheets
            <SPAN style="color:#00007F">If</SPAN> ws.Name <> "Sheet1" And _
                ws.Name <> "Sheet2" And _
                ws.Name <> "Sheet5" <SPAN style="color:#00007F">Then</SPAN>
                ws.PrintOut
            <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
        <SPAN style="color:#00007F">Next</SPAN> ws
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

HTH,

Smitty

 

[grady121]

Superb pennysaver - worked like a dream !!

You certainly saved me a few pennies trying to figure the solution.

Many thanks.