Loop VBA Macro

Hi guys, i need your help, im trying the next code but i can´t pass to the next sheet.... i missing somethig.. SOS... je



Option Explicit

Sub CHFC()

Dim wb As Workbook
Dim ws_count As Long
Dim I As Long

Set wb = ActiveWorkbook
ws_count = wb.Worksheets.Count

For I = 1 To ws_count

Rows("42:58").Select
Selection.Rows.Group
Rows("60:63").Select
Selection.Rows.Group
Rows("65:78").Select
Selection.Rows.Group
Rows("80:83").Select
Selection.Rows.Group
Rows("85:86").Select
Selection.Rows.Group
Rows("89:96").Select
Selection.Rows.Group
Rows("98:104").Select
Selection.Rows.Group
Rows("106:108").Select
Selection.Rows.Group
Rows("110:121").Select
Selection.Rows.Group
Rows("123:125").Select
Selection.Rows.Group
Rows("127:130").Select
Selection.Rows.Group
Rows("132:134").Select
Selection.Rows.Group
Rows("138:142").Select
Selection.Rows.Group
Rows("144:145").Select
Selection.Rows.Group
Rows("147:148").Select
Selection.Rows.Group
Rows("153:157").Select
Selection.Rows.Group
Rows("160:167").Select
Selection.Rows.Group
Rows("169:174").Select
Selection.Rows.Group
Rows("88:167").Select
Selection.Rows.Group
ActiveSheet.Outline.ShowLevels RowLevels:=3
ActiveSheet.Outline.ShowLevels RowLevels:=2
ActiveSheet.Outline.ShowLevels RowLevels:=1
Range("A41").Select


Next I

End Sub

Thak u men.