Toggle Zoom and Minimize and Maximize Ribbon

[bamaisgreat]

I am attempting in the code below so when I run the macro it will zoom to 50 and minimize then when I run the macro again it will zoom to 90 and maximize. Please help me get the code correct. Thanks as always

Sub ribb_zoom()


   CommandBars.ExecuteMso "MinimizeRibbon"
   ActiveWindow.zoom = 50
 
   Else
   
   CommandBars.ExecuteMso "MinimizeRibbon"
   ActiveWindow.zoom = 90


End Sub

 

[Jaafar Tribak]

Sub ribb_zoom()

    If ActiveWindow.Zoom <> 50 Then
       CommandBars.ExecuteMso "MinimizeRibbon"
       ActiveWindow.Zoom = 50
    ElseIf ActiveWindow.Zoom = 50 Then
       CommandBars.ExecuteMso "MinimizeRibbon"
       ActiveWindow.Zoom = 90
    End If


End Sub

 

[bamaisgreat]

Thank you.