Refer to a range of worksheets in macro

I am trying to run a script but would like to refer to a range of worksheets.

'loop through all worksheets and copy the data to the DestSh
For Each sh In ActiveWorkbook.Sheets(Array("1", "2"))

Now I have a lot of worksheets that are ordered consecutively (e.g. 1-40) and I don't want to put all of the names into the array. Any easy way to do this?
Thanks!!!!

Hi svenk

If they are ordered consecutively, you can use their index.

Ex:

Please Login or Register  to view this content.