excel中用写了application.statusbar，却不出现提示,该怎么处理

excel中用写了application.statusbar，却不出现提示
各位好，
我现在学习VBA，有以下代码，想出现状态栏提示，可是总是不能出现。是不是我的哪个地方的设置不对？请大家帮忙！
Sub ShowStatusBar()
  Dim k As Long
  Application.DisplayStatusBar = True
  Application.StatusBar = "程序正在计算中，请稍候..."
  '空循环
  For k = 1 To 60000
  ActiveSheet.Cells(k, 1).Value = k * 4 / 8 * 2 + 5 - 3 - 2
  Next
  '清除A 列的内容
  Columns("A:A").ClearContents
  '恢复系统状态条
  Application.StatusBar = False
  End Sub

------解决方案--------------------------------------------------------
这个状态栏显示是在EXCEL的左下角那边的
不是弹出窗口