How to show wait cursor during vba script?

[BrianHoard]

I have some scripts that may take 30 seconds to run on large documents, so I want to show the hourglass/wait cursor.
I'm using the following code, but it doesn't have any effect. The cursor flashes rapidly back and forth between normal and wait. The same behavior if I comment this out. Am I missing some step to make this work?

' Set status bar text
StatusBar = ("Please wait...")

' Turn cursor to wait
System.Cursor = wdCursorWait
DoEvents

' My script runs here...

' Turn cursor back to normal.
StatusBar = ("Complete")
System.Cursor = wdCursorNormal