Hi

Look at this:

Sub CopyTabs()
Dim ShArr()

AfterSh = Worksheets("Sheet3").Index
NumOfShToCopy = Worksheets.Count - AfterSh
ReDim ShArr(1 To NumOfShToCopy)
For Sh = 1 To NumOfShToCopy
ShArr(Sh) = Worksheets(Sh + AfterSh).Name
Next
Sheets(ShArr).Copy
End Sub

Regards,
Per

"JohnUK" skrev i meddelelsen
...
Hi, Many thanks to Ryan for help on Deleting tabs.
I am now after a way of selecting all tabs regardless of amount after a
certain tab.
The reason for this, is so that I can copy to a new workbook.
Again, many thanks for help