arySheets(3) is by default arySheets(0 to 3), so you leave arySheets(3)
as empty and that causes the error.

Regards,
Tom Ogilvy


"Keith Bishton" wrote in message
...
I often group sheets to print and I am trying to develop a
way to automate the process. I am able to add sheet names
to a list box, add the selected sheet names in the list
box to any array. But when I try to apply the elements of
the array using the Sheets(array) method I get a "Subcript
out of range" error.

For example:

Dim arySheets(3)
arySheets(0) = "Sheet1"
arySheets(1) = "Sheet2"
arySheets(2) = "Sheet3"

For i = 0 to Ubound(arySheets)
Sheets(arySheets(i)).Select
'trying to imitate
'Sheets(Array("Sheet1","Sheet2","Sheet3").Select
Next

Comments, suggestion, work arounds?