Parpadeo de Pantalla al ejecutar Macro

ScreenUpdating No Funciona!!!. Tengo varios gráficos y shapes y en una
macro que me cambia el tamaño de excel (abajo) pero al ejecutarla
queda muchos segundos parpadeando y se ve muy poco profesional.
De que manera podría evitar este parpadeo?. El calcular manual no me
funciona.

Agradecido...


Sub EstiloMinimizado()
Dim Barra As CommandBar
With Application
.ScreenUpdating = False
.WindowState = xlNormal
.Left = 80
.Top = 60
.DisplayFormulaBar = False
.DisplayScrollBars = False
.DisplayStatusBar = False
For Each Barra In .CommandBars
Barra.Enabled = False
Next
.ScreenUpdating = True
End With

End Sub