Loop VBA Macro

Try this...

Sub CHFC()
    
    Dim ws As Worksheet
    
    For Each ws In Worksheets
        With ws
            .Cells.ClearOutline
            .Rows("42:58").Group
            .Rows("60:63").Group
            .Rows("65:78").Group
            .Rows("80:83").Group
            .Rows("85:86").Group
            .Rows("89:96").Group
            .Rows("98:104").Group
            .Rows("106:108").Group
            .Rows("110:121").Group
            .Rows("123:125").Group
            .Rows("127:130").Group
            .Rows("132:134").Group
            .Rows("138:142").Group
            .Rows("144:145").Group
            .Rows("147:148").Group
            .Rows("153:157").Group
            .Rows("160:167").Group
            .Rows("169:174").Group
            .Rows("88:167").Group
            .Outline.ShowLevels RowLevels:=3
            .Outline.ShowLevels RowLevels:=2
            .Outline.ShowLevels RowLevels:=1
        End With
    Next ws
End Sub