VBA - kode til at åbne og lukke grupper

Sub Hide_Rows()
Rows("5:15").Select
        Selection.EntireRow.Hidden = True
Rows("20:30").Select
        Selection.EntireRow.Hidden = True
End Sub


Sub Show_Rows()
Rows("5:15").Select
        Selection.EntireRow.Hidden = False
Rows("20:30").Select
        Selection.EntireRow.Hidden = False
End Sub

Og med en "knap"

Option Explicit
Sub Vis_Skjul()
   
    Rows("5:15").Select
    If Selection.EntireRow.Hidden Then
        Selection.EntireRow.Hidden = False
    Else
        Selection.EntireRow.Hidden = True
    End If
   
    Rows("20:30").Select
    If Selection.EntireRow.Hidden Then
        Selection.EntireRow.Hidden = False
    Else
        Selection.EntireRow.Hidden = True
    End If

End Sub

Og lige lidt enklere:

Sub Vis_Skjul()
   
    Range("5:15,20:30").Select
    If Selection.EntireRow.Hidden Then
        Selection.EntireRow.Hidden = False
    Else
        Selection.EntireRow.Hidden = True
    End If

End Sub

Vil det sige, at der ikke er en funktion, der kan aktivere de +/- der er indsat ved hjælp af gruppe-funktionen i Excel?

Med en almindelig EntireRow.Hidden = True er den jo ikke så dynamisk.

Jeg kan ikke finde det, men det burde virke på samme måde

Jeg lukker da jeg ikke kan finde løsningen.