Excel - macro para ocultar o mostrar las barras de excel da error 400

'OCULTAR LA BARRA Y MÁS COSAS

Sub Minimiza()

'On Error Resume Next

Dim iRonda As Integer

      With Application

        .DisplayAlerts = False

        .EnableCancelKey = xlDisabled

        .ScreenUpdating = False

        .WindowState = xlNormal

        .DisplayFormulaBar = False

        .DisplayStatusBar = False

    End With

    ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)")

    With ActiveWindow

        .Zoom = dZoom

        .ScrollColumn = 1

        .ScrollRow = 1

        .DisplayHeadings = False

        .DisplayHorizontalScrollBar = False

        .DisplayVerticalScrollBar = False

        .DisplayWorkbookTabs = False

        .DisplayGridlines = False

        If CInt(Application.Version) <= 120 Then

           .WindowState = xlMaximized

        End If

    End With

End Sub

Sub MAXIMIZA()

'On Error Resume Next

Dim iRonda As Integer

      With Application

        .DisplayAlerts = True

        .EnableCancelKey = xlEnable

        .ScreenUpdating = True

        .WindowState = xlNormal

        .DisplayFormulaBar = True

        .DisplayStatusBar = True

     End With

    ExecuteExcel4Macro ("show.toolbar(""ribbon"",1)")

    With ActiveWindow

        .Zoom = dZoom

        .ScrollColumn = 1

        .ScrollRow = 1

        .DisplayHeadings = True

        .DisplayHorizontalScrollBar = True

        .DisplayVerticalScrollBar = True

        .DisplayWorkbookTabs = True

        .DisplayGridlines = True

        If CInt(Application.Version) <= 120 Then

           .WindowState = xlMaximized

        End If

    End With

End Sub