Try:

arrayGuide = Array("sheet1", "sheet2", "sheet3)
For x = LBound(arrayGuide) To UBound(arrayGuide)
Sheets(arrayGuide(x)).PrintOut Copies:=1, Preview:=True
Next x

I haven't tested this, but it works in theory. - Piku

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