Select a range of sheets

[helgeroe]

Hi
I have a macro that creates a varied number of sheets (that will all be placed to the right of the old sheets) and want to select the new sheets.

Anbody have an easy way I can select the new range of sheets?

Sheets(x+1) -> Sheets(n+x)

...where: x= amount of old sheets
n= amount of new sheets

Thanks.

Helge

 

[RoryA]

There are various ways - for example:

   Dim blnNew As Boolean
   Dim x As Long
   blnNew = True
   ' select sheets from 3 on
   For x = 3 To Sheets.Count
      Sheets(x).Select blnNew
      blnNew = False
   Next x

or you could create an array of sheet names and then use that with the Sheets collection.

 

[helgeroe]

There are various ways - for example:

   Dim blnNew As Boolean
   Dim x As Long
   blnNew = True
   ' select sheets from 3 on
   For x = 3 To Sheets.Count
      Sheets(x).Select blnNew
      blnNew = False
   Next x

or you could create an array of sheet names and then use that with the Sheets collection.

Thanks!
The code works well to select the sheets, but also need to move the selcted sheets to a new sheet.
How do I do that?

 

[RoryA]

Activewindow.selectedsheets.copy

would create a new workbook with the selected sheets. Or if you built an array of sheet names, you don't even need to select them:

Sheets(astrSheetNames).Copy