Hi Thomas

One way

With in A the sheet names and in B active (on the status sheet) or not try this

Sub test()
Dim cell As Range
For Each cell In Sheets("status").Columns("A").Cells.SpecialCells(x lCellTypeConstants)
If LCase(cell.Offset(0, 1).Value) = "active" Then Sheets(cell.Value).PrintOut
Next cell
End Sub




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


"Thomas" wrote in message ...
Does anyone know if there is a way to print certain worksheets in a workbook
based on values in a cell? I'm wanting to print all customers that are
currently active on the status worksheet. Each Customer has there own
worksheet. I would like to print their worksheet based on if they are marked
"active" on the status worksheet. Any ideas, please feel free to tell me.
--
Thank you,
Thomas Vanderhoof
Noble Phone Services, Inc.