Does `Application.StatusBar` work in office 2011?

Question

I wrote this little macro on my mac using office 2011. I don't see any status bar. Anyone know why this is not working?

Sub testStastusBar()

    Application.DisplayStatusBar = True
    Application.StatusBar = "Now processing...."

    Dim n As Integer
    For n = 1 To 10
        Application.Wait (Now + TimeValue("0:00:01"))
        Debug.Print n
    Next n

    Application.StatusBar = False

End Sub

I have not used macros all that much. Do you just write them in Excel or do you have to use Visual Basic .NET? Seems like a simple question but I mostly use Java and C++ so the macros I have not used all that much. — Doug Hauf, Feb 21 '14 at 21:51

score 4 · Accepted Answer · answered Jan 06 '14 at 03:27

To make it work with Excel 2011, add DoEvents after updating the statusbar.

Sub testStastusBar()

    Application.DisplayStatusBar = True
    Application.StatusBar = "Now processing...."

    DoEvents '<~~ Add This

    Dim n As Integer
    For n = 1 To 10
        Application.Wait (Now + TimeValue("0:00:01"))
        Debug.Print n
    Next n

    Application.StatusBar = False

End Sub

Does `Application.StatusBar` work in office 2011?

1 Answers1