You can select all the sheets first and then print:

For Counter = 1 To 3
Worksheets(Counter).Select False
Next
ActiveWindow.SelectedSheets.PrintOut

Also, you can print an array of sheet names without selecting them:

Worksheets(Array("Sheet1", "Sheet2")).PrintOut


--
Jim
"Jase" wrote in message
...
|I need to print multiple sheets using VBA. I am currently using a looping
| function to colate them that says
|
| For intStart = 1 To intCopies
| Sheets(1).Select
| ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
| Sheets(2).Select
| ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
| Next intStart
|
| Is their a faster way to do this?
|
| thanks,
|
| Jase