Hi

Try this macro

Sub Tetst()
With Sheets("Sheet1")
If .Range("B2") = "pens" Or .Range("B2") = "paper" Then
Sheets(Array("Sheet1", "Sheet3", "Sheet4")).PrintOut
ElseIf .Range("B2") = "pencils" Then
Sheets(Array("Sheet1", "Sheet5")).PrintOut
End If
End With
End Sub


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


"jhicsupt" wrote in message ...
I would like to print worksheets depending on the value of B2 (in Sheet1).

If B2 = "pens" or "paper"
Then print Sheet1, Sheet3 and Sheet4

If B2 = "pencils"
Then print Sheet1, Sheet5

Any suggestions on how to do this?

Thanks in advance.