Option Explicit
Sub testme()
Dim FirstIndex As Long
Dim iCtr As Long

FirstIndex = Sheets("Apples").Index 'or 3 or 4

For iCtr = FirstIndex To Sheets.Count
Sheets(iCtr).Select Replace:=CBool(iCtr = FirstIndex)
Next iCtr

End Sub

After the 3rd means include the third? Start with the first sheet or index that
you want grouped.

And After means to the right, correct?

"J.W. Aldridge" wrote:

Need to know how to express the following....

group all sheets in a workbook after sheet "apples"
or
group all sheets in a workbook after the 3rd sheet in workbook.

--

Dave Peterson