Sub ShowLoadingMessage()
' 显示Loading消息
Application.StatusBar = "Loading... Please wait."
' 这里插入需要执行的代码
' ...
' 清除Loading消息
Application.StatusBar = ""
End Sub
Sub ShowLoadingMessage()
' 显示Loading消息
Application.StatusBar = "Loading... Please wait."
' 这里插入需要执行的代码
' ...
' 清除Loading消息
Application.StatusBar = ""
End Sub