Printing Sheets Macro

Please help.

With this example (below) the Macro will only print the named sheets. But I need a Macro that will Print out all sheets in workbook except a specified sheet (say for example Sheet1). The reason being is that I may need to add or delete sheets, and the current Macro is too rigid.

Once selected sheets and printed then I want it to return to Sheet1.

Can any body help? Thanks.

Dixon.

Sheets(Array("Sheet2", "Sheet3", "Sheet4", "Sheet5")).Select
Sheets("Sheet2").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("Sheet1").Select
Range("A1").Select