Macro para seleccionar varios hojas de mi libro

Sub AgruparRows()
Sheets("Ene").Unprotect "ADMIN"
Selection.Rows.Group
ActiveSheet.Outline.ShowLevels RowLevels:=1
ActiveSheet.Outline.ShowLevels RowLevels:=2
Sheets("Ene").Protect "ADMIN"
End Sub
Sub AgruparCols()
Sheets("Ene").Unprotect "ADMIN"
Selection.Columns.Group
ActiveSheet.Outline.ShowLevels ColumnLevels:=1
ActiveSheet.Outline.ShowLevels ColumnLevels:=2
Sheets("Ene").Protect "ADMIN"
End Sub
Sub DesagruparRows()
On Error GoTo ErrHandler
Sheets("Ene"). Unprotect "ADMIN"
Selection. Rows. Ungroup
Sheets("Ene"). Protect "ADMIN"
Exit Sub
ErrHandler:
Sheets("Ene"). Protect "ADMIN"
MsgBox "Debe seleccionar un grupo.", vbExclamation, "Error..."
End Sub
Sub DesagruparCols()
On Error GoTo ErrHandler
Sheets("Ene"). Unprotect "ADMIN"
Selection. Columns. Ungroup
Sheets("Sheet1"). Protect "ADMIN"
Exit Sub
ErrHandler:
Sheets("Ene"). Protect "ADMIN"
MsgBox "Debe seleccionar un grupo.", vbExclamation, "Error..."
End Sub

Saludos, esta macro para es poder agrupar y desagrupar celdas en excel con la hoja ya protegida, solo me funciona en una hoja, mi libro se basa en 13 hojas, 12 de ellas son los 12 meses del año. Estas hojas llevan como nombre las tres pirmeras letras del mes; Ene, Feb, Mar, etc... La pregunta es: ¿Cómo yo puedo adaptar esa macro para las 12 hojas, ya que solo funciona en la hoja llamada "Ene"?