group all sheets after

[J.W. Aldridge]

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]

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?

 

[Gary Keramidas]

here's another way, there're always multiple ways to do things.

Option Explicit

Sub test()
Dim i As Long
Application.ScreenUpdating = False
For i = Worksheets("Apples").Index To Worksheets.Count
Worksheets(i).Select False
Next
Application.ScreenUpdating = True
End Sub

Sub test2()
Dim i As Long
Application.ScreenUpdating = False
For i = 3 To Worksheets.Count
Worksheets(i).Select False
Next
Application.ScreenUpdating = True
End Sub

 

[Dave Peterson]

This will work if the current selected sheet(s) is/are to the left of that
Apples/3 sheet.