Copying All Worksheets after Sheet4 (position) into a new .xlsx workbook

[jconkl02]

I have a workbook that will have a dozen or so sheets that will vary in name on a regular basis. I want to be able to copy all sheets after the fourth sheet into a new .xlsx workbook.

I have looked for a solution, but all I find is

Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Copy

But the names of the sheets will be changing, so I need a solution that uses some form of "To Sheets.Count ".

Any ideas?

 

[Fluff]

How about

Sub jconkl02()
   Dim ary As Variant
   Dim i As Long
   ReDim ary(1 To Worksheets.Count - 4)
   For i = 5 To Worksheets.Count
      ary(i - 4) = Sheets(i).Name
   Next i
   Sheets(ary).Copy
End Sub

 

[jconkl02]

Fluff,

That was perfect! I miscounted the number of sheets I wanted to exclude, but I just reduced all of the numbers in the macro by 1 and it worked perfect.

Thanks again.
jason

How about

Sub jconkl02()
   Dim ary As Variant
   Dim i As Long
   ReDim ary(1 To Worksheets.Count - 4)
   For i = 5 To Worksheets.Count
      ary(i - 4) = Sheets(i).Name
   Next i
   Sheets(ary).Copy
End Sub

 

[Fluff]

You're welcome & thanks for the feedback