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