VBA not executing in proper order?

[cr731]

I have a long-running macro and want to display a “Macro running… please wait” rectangle box. So, I created a box and then hid it. Here is my code (abbreviated for illustrative purposes):

Sheet1.Shapes(“Box”).Visisble = True
… other lines of code …
Sheet1.Shapes(“Box”).Visible = False

Strangely, running that macro does not result in first displaying the box, then running the code, then hiding the box. Instead, my code runs and then the box flashes and disappears in an instant. The total time for the macro is about 10 seconds… so I cannot understand why the box is not visible during that whole duration. How can my macro lines in between the show/hide be running before the box is shown?

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>Or am I missing something here?

 

[boblarson]

Try adding

DoEvents

just after your first line where you set the box.

 

[shg]

Stick DoEvents after each of those lines.

 

[cr731]

Stick DoEvents after each of those lines.

After every line of my code? Or just after the lines of showing/hiding the box?

Changing my script to this makes no difference:

Sheet1.Shapes("Box_Hyperdownload").Visible = True
DoEvents

Application.Wait Now() + TimeValue("00:00:04")
DoEvents

Sheet1.Shapes("Box_Hyperdownload").Visible = False
DoEvents
(I added the wait command just to test)

 

[shg]

Or just after the lines of showing/hiding the box?

Yes, that.

Even so, if those lines are in a fast loop, you won't see much.