Print conditional worksheets

[Guest]

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.

 

[Ron de Bruin]

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

 

[Ian]

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