Minimize/Maximize Ribbon using VBA

[Excel Fox]

It is easily understood from my post above that you should REPLACE one line with another.

Sub ToggleProperties(ByVal ShowRowColHeads As Boolean, _
                                    ByVal ShowSheetTab As Boolean, _
                                    ByVal ShowGridLines As Boolean, _
                                    ByVal DisplayFBar As Boolean, _
                                    ByVal DisplayRibbon As Boolean, _
                                    ParamArray ShtNames() As Variant)
                                    
    If Not IsMissing(ShtNames) Then
        ThisWorkbook.Worksheets(ShtNames).Select
        ActiveWindow.DisplayHeadings = ShowRowColHeads
        ActiveWindow.DisplayWorkbookTabs = ShowSheetTab
        ActiveWindow.DisplayGridlines = ShowGridLines
        Application.DisplayFormulaBar = DisplayFBar
        Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon""," & DisplayRibbon & ")"
        ThisWorkbook.Worksheets(ShtNames(0)).Select
    End If
    
End Sub