IF statement for show / hide detail

Hello All, this forum is always so helpful so I'm putting this problem out there to see what comes back

I'm wanting to put a simple button on my sheet that the user clicks to show or hide a group of rows (the "show/hide detail" options).

So far my code goes:

    

    If ROWS 29 THRU 78.ShowDetail = True Then

    ActiveSheet.Outline.ShowLevels RowLevels:=1

    ElseIf ROWS 29 THRU 78.ShowDetail = False Then

    ActiveSheet.Outline.ShowLevels RowLevels:=2
    
    End If
    range("b28").select

End Sub

So two questions, can this unfinished code be finished to accomplish what I need, or perhaps a better way? The other question is, can I remove the bar down the left hand side of the screen that shows the groupings?

I know that there is the bar that would do this just fine, and there are also the show and hide detail buttons on the ribbon but my users have reported that these things are apparently too complicated and would like a button on the worksheet! I'd welcome other ways to solve this problem (other than "get new users" lol)

Looking forward to seeing what is suggested, thanks in advance.

Hello everyone, I'm marking this as [solved] but really, I have just had time to think about it and come up with a different way.

The problem I could foresee was that eventually, I would be protecting the sheet so that formulas would be preserved, and when protected the group show/hide detail options wouldn't have worked. My code for a simple button would have become longer and longer to solve a problem that is easily handled by the ribbon buttons for showing and hiding a group of cells.

I have had to find some way of showing/hiding cells on another part of the sheet, my code is pasted below. It is very similar to what I wanted for this thread - a button to hide/show certain rows. The macro, when assigned to a button on the sheet will look to see if row 29 is hidden, and either hide it or show it depending on what it finds. Since it simply hides the cells, there is no trouble when a sheet is protected.

Sub Multi_Entry()
'
'
' group  collapse expand
'
    
   
    
    If Rows(29).Hidden = True Then

    Rows("29:77").Hidden = False

    ElseIf Rows(29).Hidden = False Then

    Rows("29:77").Hidden = True
    
    End If

End Sub