| Home |
| Search |
| Today's Posts |
|
#9
Posted to microsoft.public.excel.misc
|
|||
|
|||
Grouped Sheets - Windows Arrange
Fantastic, much appreciated Dave
Jim "Dave Peterson" wrote: Maybe just go in reverse? Option Explicit Sub testme() Dim mySelectedSheets As Sheets Dim iCtr As Long Set mySelectedSheets = ActiveWindow.SelectedSheets If mySelectedSheets.Count = 1 Then Exit Sub End If mySelectedSheets(mySelectedSheets.Count).Select For iCtr = mySelectedSheets.Count - 1 To 1 Step -1 ActiveWindow.NewWindow mySelectedSheets(iCtr).Select Next iCtr ActiveWorkbook.Windows.Arrange ArrangeStyle:=xlHorizontal 'xlVertical End Sub JMay wrote: Most excellent answer; I note that sheets get assigned in :3,:2,:1 order. Any way to reverse to :1,:2,:3 order? Thanks, Jim "Dave Peterson" wrote: I think Dave F. was answering a question about arranging the tabs at the bottom of the window--not arranging the actual windows themselves. Maybe something like this: Option Explicit Sub testme() Dim mySelectedSheets As Sheets Dim iCtr As Long Set mySelectedSheets = ActiveWindow.SelectedSheets If mySelectedSheets.Count = 1 Then Exit Sub End If mySelectedSheets(1).Select For iCtr = 2 To mySelectedSheets.Count ActiveWindow.NewWindow mySelectedSheets(iCtr).Select Next iCtr ActiveWorkbook.Windows.Arrange ArrangeStyle:=xlHorizontal 'xlVertical End Sub (I found it easier to see the results using horizontal.) JMay wrote: Is it be possible to Select a given number of Sheets (Group, NonContiguous limit to two) say for example sheet1 and sheet3) and run a macro that would Show them Vertically arranged? Any assistance appreciated, -- Dave Peterson -- Dave Peterson |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| excel 03- sheets stay grouped even when I ungroup | Excel Discussion (Misc queries) | |||
| Autofilter Lists across Multiple Sheets, Maintain Correct Referenc | Excel Worksheet Functions | |||
| open separate exterior excel windows | Excel Discussion (Misc queries) | |||
| How do I arrange sheets in alphabetical order? | Excel Discussion (Misc queries) | |||
| How do I arrange sheets in alphabetical order? | Excel Discussion (Misc queries) | |||
Threaded Mode
