VBA to group rows on multiple tabs

[mountainman88]

As far as I can tell you can ctrl-select multiple tabs an d apply row groupings.

Can I get some VBA that will loop through a list of tab names in column A of a tab called 'group'. And then group multiple sets of rows based on a specified start and end row to group on those tabs named?

eg. on 'group' tab cells A1 - A3 contains Cat, mouse, rat

On the tabs called cat, mouse, tab rows will be grouped based on a specified start and end row (in Columns B and C?) for each grouping.

In reality the rows i am grouping on each tab are 12-13, 15-16, 18-19, 26-27 if that makes thins easier.

thanks!

 

[John_w]

As far as I can tell you can ctrl-select multiple tabs an d apply row groupings.

Not on Excel 2019 at least - the Group/Ungroup options are greyed-out when you select multiple tabs.

Can I get some VBA that will loop through a list of tab names in column A of a tab called 'group'. And then group multiple sets of rows based on a specified start and end row to group on those tabs named?

Try this macro with a sheet named 'Groups' and this layout:

Group rows.xlsm
	A	B
1	Sheet	Rows to Group
2	Sheet1	12:13,15:16,18:19,26:27
3	Sheet2	12:13,15:16,18:19,26:27
4	Sheet3	12:13,15:16,18:19,26:27
Groups

Public Sub Group_Rows_on_Sheets()

    Dim r As Long
    Dim rowGroups As Variant, rowGroup As Variant
   
    With Worksheets("Groups")
        For r = 2 To .Cells(.rows.Count, "A").End(xlUp).Row
            rowGroups = Split(.Cells(r, "B").Value, ",")
            For Each rowGroup In rowGroups
                Worksheets(.Cells(r, "A").Value).rows(rowGroup).Group
            Next
        Next
    End With
   
End Sub