Print conditional worksheets
 

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.

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.

Untested, but try this

Sub conditional_print_sheets()
If Range("B2").Value = "pens" Then
Worksheets("Sheet3").PrintOut
Worksheets("Sheet4").PrintOut
ElseIf Range("B2").Value = "paper" Then
Worksheets("Sheet3").PrintOut
Worksheets("Sheet4").PrintOut
ElseIf Range("B2").Value = "penclis" Then
Worksheets("Sheet4").PrintOut
End If
End Sub

--
Ian
--
"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.