Print conditional worksheets

J

jhicsupt

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.
 
R

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
 
I

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
 
Top