Refresco de pantalla en loop -al activar libro-

Grupo, tengo un archivo con varios gráficos y figuras (bien colorido).
Cuando estoy en otro libro y activo este, comienza a hacer algo asi
como refrescar (screenupdate) la pantalla, cayendo en un loop, o sea,
aparecen y desaparecen los gráficos y las figuras rápidamente..no
funciona el ESC.. si no que haciendo un click derecho..
no me sucede siempre, pero si varias veces...
¿como puedo solucionarlo?
Además tengo este código que me dio Hector, para ver en pantalla
completa, y cuando lo desactivo pasa esto (de desaparer y aparecer,
pero dura no mas de un segundo).

ThisWorkbook==Private Sub AmpliarVista(ByVal Mostrar As Boolean)
With Application
.DisplayFullScreen = Mostrar: .DisplayScrollBars = Not Mostrar
.CommandBars("Worksheet Menu Bar").Enabled = Not Mostrar
End With
End Sub

Private Sub Workbook_Activate()
AmpliarVista True

End Sub
Private Sub Workbook_Deactivate()
AmpliarVista False
End Sub

Gracias