If Range("l12") = 2 Then
Sheets(Array("sheet1", "sheet2", "sheet3", "sheet4", "sheet5"
"sheet6")).Select
Range("ac1:ax79").PrintOut
End If
If Range("l12") = 3 Then
Sheets(Array("lays", "bistro", "kettle", "lays lights", "stax"
"ruffles")).Select
Range("ay1:bt79").PrintOut
End If
If Range("L12") = 4 Then
Sheets(Array("lays", "bistro", "kettle", "lays lights", "stax"
"ruffles")).Select
Range("bu1:cw79").Print
End If
If Range("l12") = "" Then
MsgBox ("Please enter quarter you wish to print in cell L12 on the Men
tab")
End I
--
Message posted from
http://www.ExcelForum.com