控制Excel 2013状态栏

Question

我正在编写VBA宏，运行需要时间。因此，在每个步骤中，我都想通知用户当前正在处理哪个对象。因此，我想写入状态栏：

Application.DisplayStatusBar = True
Application.StatusBar = True
Application.StatusBar = "Current Item: " + ObjName
DoEvents

但我的信息从未显示过。仅显示“就绪”。 StatusBar属性始终为false。 Application.Statusbar说：如果Microsoft Excel控制状态栏，则此属性返回False。

那么如何控制状态栏呢？