Моя цель состоит в том, чтобы обновить данные Bloomberg и сделать некоторые вычисления с различными тикерами. Но похоже, что VBA выполнит все вычисления, не дожидаясь обновления данных. Вот код:

Application.Calculation = xlCalculationAutomatic

For i = 1 To 3

    Call Worksheets("Sheet1").Range("data1").Select 'the cells "data1" contains the function =BDH(ticker, field, start date, end date) to get the information from Bloomberg'

    Call Application.Run("RefreshCurrentSelection")

    Worksheets("sheet1").Range("d3").Value = Worksheets("sheet1").Range("sum") 'the cells "sum" takes the sum of all BB info'     

Кто-нибудь знает, как это исправить?