Screen Updating starts before asked to do so in procedure

Hi,

I have many macros that run during Workbook_Open.
If I am NOT ready to Add Progress Bar process macro, I have a sheet with message stating "Wait Till This Message Disappears" to user.

I .select this sheet at the beginning of the macro BEFORE running the line code "Application.ScreenUpdating =false"
But when the Workbook_Open macro runs the sheet doesn't show as it should during the run process.
If I step through it, it does like as it should.

My code:

Private Sub Workbook_Open()

Application.Run "Show_FileLoadMessage"  'Select the Sheet with Message

Application.ScreenUpdating = False

'Run Multiple Macros  (fyi: None of which "De-selects or selects another sheet")

Application.ScreenUpdating = True

Application.Run "Hide_FileLoadMessage"  'Hide Sheet with Message

Sheets("Main Menu").Select

end sub

After macro is run the sheet "Main Menu" shows like it should.
But sheet with message doesn't show before screen updating is set to false

Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #3 requires code tags. We have special tags to indicate code, that preserve formatting and allow scrolling. I appreciate the effort to set off your with color, but we prefer the CODE tags. I have added them for you this time because you are a new member. --6StringJazzer

There is not enough information to understand what you're doing or what the problem is. Can you attach your Excel file?

Also, this is not your problem but why not just use

Show_FileLoadMessage

instead of

Application.Run "Show_FileLoadMessage"  'Select the Sheet with Message

It shouldn't make a difference but the code is simpler and easier to understand.

Have you tried putting a Stop statement after your Sub declaration and then reopening the workbook and stepping through the code to see what happens?

Place a doevents in there to slow it down just enough to show the sheet you want to show.

Private Sub Workbook_Open()

Application.Run "Show_FileLoadMessage"  'Select the Sheet with Message

DoEvents

Application.ScreenUpdating = False

'Run Multiple Macros  (fyi: None of which "De-selects or selects another sheet")

Application.ScreenUpdating = True

Application.Run "Hide_FileLoadMessage"  'Hide Sheet with Message

Sheets("Main Menu").Activate

End sub

Please click the * below if this helps