Hi Guys,

I hope some1 can help me with this.

I use the following code to slim down Excel a little bit while using a certain Exceltool (an open issues list for those who want to know).

This code works perfectly until I enlarge the one table I have inside the Exceltool manually downwards (adding a row with the blue corner in the right bottom of the table).

As soon as I do this the FormulaBar and the StatusBar stay hidden and this part of the macro seems to stop working. No error message no nothing...



I hope some1 knows what to do and can help. Thank you already now to all contributors. 


Private Sub Workbook_Activate()
    Application.DisplayFormulaBar = False
    Application.DisplayStatusBar = False
If Application.CommandBars("Ribbon").Height > 150 Then
    Application.CommandBars.ExecuteMso "MinimizeRibbon"
End If

Sheets("LOP").Activate

End Sub

Private Sub Workbook_Deactivate()
    Application.DisplayFormulaBar = True
    Application.DisplayStatusBar = True
If Application.CommandBars("Ribbon").Height < 150 Then
    Application.CommandBars.ExecuteMso "MinimizeRibbon"
End If

End Sub
Kind regards,
Michael