Print a worksheet based on value in another cell

[bmasella]

In Column C (C11:C28) I have Sheet Names - Descriptors and then in Column D (D11:D28) I have the "YES" or "NO" for whether the sheet should print
There could be blanks rows or rows with just heading text on them.

This project uses Table of Contents and to help me clarify what is on the specific sheet I use a Formula [=CONCATENATE("Agenda1 - ",Agenda1!H1)] on some of the Rows. These all then Hyperlink to the appropriate worksheet. Not all Rows will have the Formula if it is easily identifiable.

The name of the sheet is Either the Name As Is Unless there is a hyphen and if there is a hyphen then the sheet name is the first word up to the space.

I'm sure this is doable with VBA I just don't know how to manipulate the - out of the names and do the appropriate sheet selections so that I can print all of the selected sheets.

My current data looks something like this:

Info Pages Print (Merged Cell Header Row)
Title YES
Implementation NO
<blank row>
Agendas Print (Another Merged Cell Header Row)
Agenda1 - FORMULA NAME1 YES
Agenda2 - FORMULA NAME2 NO
Agenda3 - FORMULA NAME3 NO
... thru Agenda7
Other Print (Merged Cell Header Row)
Other1 - Formula Name NO
Other2 - NO
Other3 - NO

My workbook has worksheets with names: Title, Implementation, Agenda1, Agenda2, Agenda3,...Other1, Other2, Other3

I want to select all of them that have the YES to Print and then send them to my printer.

Here's hoping you might have a solution for this strange need.

[krjoshi]

Hi bmasella,

Please attach your workbook so that we can look at it..

Regards,
Joshi

[bmasella]

Attahced is an example, not the actual sheet but all positioning remains the same.

[bmasella]

This routine lets me print "specific" sheets to the printer defined in a specific cell. What I'm looking for is a way to determine which sheets to print based on the YES/NO in the worksheet and to get the sheet name from the Agenda - Name rows.

Sub Print_Cell_For_Printer()

    Sheets(Array("Title", "Implementation Team", "Agenda1", "Agenda2", _
        "Agenda3", "Agenda4", "Agenda5", "Agenda6", "Agenda7", "Other1", _
        "Other2", "Other3", "Other4", "Other5", "Other6")).Select
    Sheets("Title").Activate
'Data Entry is another worksheet that is not in the sample file.  In F33 is the name of the Printer from the PC.
    ActiveWindow.SelectedSheets.PrintOut ActivePrinter:=CStr(Sheets("Data Entry").Range("F33").Value), Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("Title").Select
End Sub