Question : Bulk Ungroup/Group

Hi

I was wondering if it is possible to do a bulk ungroup, and group by selecting muliple worksheets. What I am trying to do is from sheet first to last, ungroup rows 21 to 26 and group rows 21-24. Can this be done by selecting all the tabs and doing it all at once? If not, is there an easier way?

Thanks

Greg

Attachments:

Hunter-IHS.xls (3.6 MB) (File Type Details)

Template

Answer : Bulk Ungroup/Group

MACRO!!!!

That's the way. Select your sheets, then run this macro.

Thomas

                       
             Sub ungrouprows()
Dim sht As Worksheet
On Error Resume Next

For Each sht In ActiveWindow.SelectedSheets
    sht.Rows("21:26").Ungroup
    sht.Rows("21:24").Group
Next
End Sub

Question : Bulk Ungroup/Group

Answer : Bulk Ungroup/Group

MACRO!!!!That's the way. Select your sheets, then run this macro. Thomas 1: 2: 3: 4: 5: 6: 7: 8: 9: Sub ungrouprows() Dim sht As Worksheet On Error Resume Next For Each sht In ActiveWindow.SelectedSheets sht.Rows("21:26").Ungroup sht.Rows("21:24").Group Next End Sub

MACRO!!!!

That's the way. Select your sheets, then run this macro.

Thomas

1: 2: 3: 4: 5: 6: 7: 8: 9:

Sub ungrouprows() Dim sht As Worksheet On Error Resume Next For Each sht In ActiveWindow.SelectedSheets sht.Rows("21:26").Ungroup sht.Rows("21:24").Group Next End Sub