Try this...

Select Case Range("l12")
Case Is = 2
Sheets(Array("sheet1", "sheet2", "sheet3", "sheet4", "sheet5"
"sheet6")).Select
Selection.Range("ac1:ax79").PrintOut
Case Is = 3
Sheets(Array("lays", "bistro", "kettle", "lays lights", "stax"
"ruffles")).Select
Selection.Range("ay1:bt79").PrintOut
Case Is = 4
Sheets(Array("lays", "bistro", "kettle", "lays lights", "stax"
"ruffles")).Select
Selection.Range("bu1:cw79").Print
Case Is = ""
MsgBox ("Please enter quarter you wish to print in cell L12 on the Men
tab")
End Selec

--
Message posted from http://www.ExcelForum.com