Group rows on selected sheets

[imaguy77]

Hi all,

I'm trying to find a macro to do the following:

I select (highlight) a varying number of sheets, and highlight a varying number of rows (for example, select sheets 1 - 10, rows 1-10) and i would like the macro to group those rows on each sheet so they can all be collapsed. Excel by default will not allow you to group with more than 1 sheet selected.

Any help would be greatly appreciated!

 

[Domenic]

Try...

[font=Verdana][color=darkblue]Option[/color] [color=darkblue]Explicit[/color]

[color=darkblue]Sub[/color] test()

    [color=darkblue]Dim[/color] sh [color=darkblue]As[/color] [color=darkblue]Object[/color]

    [color=darkblue]For[/color] [color=darkblue]Each[/color] sh [color=darkblue]In[/color] ActiveWindow.SelectedSheets
        [color=darkblue]If[/color] TypeName(sh) = "Worksheet" [color=darkblue]Then[/color]
            sh.Range(Selection.Address).Rows.Group
        [color=darkblue]End[/color] [color=darkblue]If[/color]
    [color=darkblue]Next[/color] sh
        
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
[/font]

 

[imaguy77]

Awesome. Thanks much.

 

[Domenic]

You're welcome! Thanks for the feedback!