Hi,

We are trying to create a toggle button to auto collapse/expand multiple groups dynamically.
At the moment we have to name each group in the Names Manager and then manually have an if statement in VBA code where hard-code each groups name.
However, we will have more than 100 groups so it makes this job very tedious. Is there a way without having to define group names and then having to hard-code into the script. Please see below the code we have been working with:

If WorksheetFunction.CountA(Range("group_range1")) = 0 Then
Range("group1").EntireRow.Hidden = True
Else
Range("group1").EntireRow.Hidden = False
End If

If WorksheetFunction.CountA(Range("group_range2")) = 0 Then
Range("group2").EntireRow.Hidden = True
Else
Range("group2").EntireRow.Hidden = False
End If

If WorksheetFunction.CountA(Range("group_range3")) = 0 Then
Range("group3").EntireRow.Hidden = True
Else
Range("group3").EntireRow.Hidden = False
End If

Any help would be appreciated.

Kind regards,
Ronia