如何在mac上使用excel vba中的状态栏

我正在尝试设置一个进度条，以便查看我的sub是否正在运行，如果我已成功冻结excel。我正在看一个答案，但它不起作用

以下是我所拥有的：

Dim n As Integer
With Worksheets("Data_History")
    Set starting_cell_range = .Range(find_last_column("Data_History"))
    For n = 0 To 18
        starting_cell_range.Offset(n, 1) = final_array(n)
        Application.StatusBar = "Progress: " & n & " of 18" & Format(n / 18, "0%")

    Next n
    Application.StatusBar = False

End With

---

它不工作是因为我在mac上吗？

我假设您有一个Application.DisplayStatusBar并且它是可见的？尝试在此处添加事件：

....
DoEvents
Application.StatusBar = "Progress: " & n & " of 18" & Format(n / 18, "0%")
....