HELP: MsgBox takes 99% CPU usage... why?

[Dhruba Bandopadhyay]

I got a problem with my Excel macro. It does some calculations then displays
a message box. However the message box is actually

displayed before the window maximize so what actually happens is the user
sees the minimised Excel blinking in the taskbar.

The problem is I have been told this blinking uses 50% of the CPU or almost
100% CPU usage. Is this normal? Is it waiting in a for

loop prompt?




Public Sub Updates_Off()
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
End Sub

Public Sub Updates_On()
With Application
.StatusBar = False
.ScreenUpdating = True
.DisplayAlerts = True
.EnableEvents = True
.EnableCancelKey = xlInterrupt
.Cursor = xlDefault
.Calculation = xlCalculationAutomatic
End With
End Sub

Private Sub Workbook_Open()
Updates_Off
Application.WindowState = xlMinimized
Updates_On
Response = MsgBox("Test", vbYes + vbCritical, "Template Message")
Application.WindowState = xlMaximized
Application.Quit
End Sub