Macro for printing mulitple sheets in workbook

You can use the following code to print the designated worksheets.
I have only listed 4 sheets in my code, you can add the ones you want printed. You will have to list their "CodeName" as shown when viewed in the VB Editor. Codename 1 is not necessarily sheet 1, it is the first sheet created by excel. Even if you add or remove sheets, sheet codenames do not change.

Macro to print mulitple sheets

Thanks a bunch

This is the macro I put in. When I hit run it is printing the 4 sheets I want (sheets 5,6,7 & 8). Doe sit look right? Not sure I understand "CodeName"

Sub PrintSomeWorksheets()
Dim ws As Worksheet
For Each ws In Worksheets
Select Case Mid(ws.CodeName, 6) 'Get Number of sheet 5 places in
Case 5, 6, 7, 8
ws.PrintOut
Case Else
' do nothing
End Select
Next ws
End Sub

The Case # refers to the specific sheets which I want to print. IF I want to print everything after(inlcuding ) sheet "5", is there a way to do that.
I will be adding new sheets as I go along and want to see if there is a way not to have to change the MACRO when I add new sheets.

Change this line of code:
to
That should print out all sheets with codenames 5 and above.

Priinting Macro

Okie Dokie will make the recommended change.

In the code -what does "Select Case Mid(ws.CodeName, 6) 'Get Number of Sheet 5 places" mean or do??

Now for another curve ball.

Lets assume I want to print any sheet greater than sheet 4 THAT has a specific date (TODAY) in a specific cell (E7) on each sheet.

Can a Macro decide which of the sheets have TODAY in E7 and only print those??

Really appreciate your great help.

Where in Washington are you. Wife and I are thinking of moving out to the Olympic Penisula

Your request to print sheets that have a specific date is a whole different procedure. Won't be able to incorporate the two methods together. At least not with the code I gave you so far. But code can do what you are asking, just a whole new thought process.

In the code, "Mid(ws.CodeName, 6)", is getting the number portion of the codename. That number starts in position 6 of the codename. If you open a new workbook, sheet1's codename will be "Sheet1" the "1" starts in postion 6 of that name.
The Select Case portion of the code sets what follows, the codename #, as the number to use in the rest of the code.

I am in a small town called Elma, south end of the Olympic pennisula. Olympic forest is about 40 miles north of town. Elma is about half way between the south end of Puget Sound and the ocean. Lots of rain, but mild summer and winters.
Where are you located now?

Looking at another post about printing sheets. Looks like you can combine the two ideas on printing.
Check out this post:
http://www.mrexcel.com/board2/viewtopic.php?t=241595

Try this code:
It looks at cell E7 of the worksheet that is being checked, if the value is equal to Today's date, then it prints.
Edit: Replaced "[(Today())]" with "Date".

printing macro

Thanks a bunch
will try it out and let you know

Another option, in case your desired list of worksheets to be printed changes from time to time (as mine does).

Hold down the Ctrl key, and select only the worksheets you want to print.