在RefreshAll之后，VBA的计算顺序不正确

Question

此代码的排列顺序不正确。

我想使用RefreshAll函数提取数据，然后计算工作表，然后应用IF语句。当前计算似乎是最后一次，所以我必须运行两次代码才能获得所需的结果。

我该怎么做才能强制执行正确的订单？

Public Sub version_control()
    ThisWorkbook.RefreshAll
    Worksheets("VC").Calculate
    If Sheets("VC").Range("A1").Value <> Sheets("VC").Range("A2").Value Then 
        MsgBox "Please download the latest version from the Sharepoint"
        Application.Quit
    End If
End Sub