Ein/Ausschalter

Sub SetGroup()
Dim InI As Integer
Dim m_SheetAuswertungsblatt As Worksheet
Set m_SheetAuswertungsblatt = ActiveSheet
For InI = 24 To 235 Step 3
'Zeilen Gruppieren
m_SheetAuswertungsblatt.Rows(InI + 1 & ":" & InI + 2).Group
Next InI
Set m_SheetAuswertungsblatt = Nothing
End Sub

Soweit so gut... :-)... nun möchte es über einen Button ansteuern und dieser soll eine Ein/Aus Funktion haben. Also Gruppierung rein oder raus. Wie kann ich das verbinden?
Ich bedanke mich für eure Unterstützung!
Euer Tim