VBA не рассчитывает в правильном порядке после RefreshAll

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