Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
group all sheets after
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. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
group all sheets after
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
group all sheets after
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 -- Gary Keramidas Excel 2003 "J.W. Aldridge" wrote in message ... 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. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
group all sheets after
This will work if the current selected sheet(s) is/are to the left of that
Apples/3 sheet. Gary Keramidas wrote: 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 -- Gary Keramidas Excel 2003 "J.W. Aldridge" wrote in message ... 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Name a group of sheets | Excel Discussion (Misc queries) | |||
sort between a group of sheets | Excel Worksheet Functions | |||
working with a group of sheets | Excel Programming | |||
Group Sheets | Excel Discussion (Misc queries) | |||
Need group all sheets in a workbook | Excel Programming |