Wait until Excel finishes populating Bloomberg data using VBA - excel

Question

I have an Excel sheet with ~300,000 BDH formulas to download securities prices.
I want to
open the file and get all prices
paste them as values
save and close the file.
However, I do not know when Excel finishes populating Bloomberg data, so it's difficult to determine the time to do 2) and 3).
I have written VBA, but not sure if it works:
In Module1
Sub CheckFormulas()
If Application.CalculationState = xlDone Then
With Worksheets("Sheet1").UsedRange
.Value = .Value
End With
Else
Application.OnTime Now + TimeValue("00:30:00"), "CheckFormulas"
ActiveWorkbook.Close Savechanges:=True
End If
End Sub
In 'ThisWorkbook'
Private Sub Run()
Call CheckFormulas
End Sub
So the way it should theoretically work is:
I open the file
the code checks every 30 minutes if all BDH formulas are done
if they are done, then paste as values, save and close 4) if not, check 30 minutes later again.
I am wondering if this is the best way to accomplish my goal and want to know if Application.CalculationState is compatible or works with Bloomberg formulas BDH?

Answer 1

In our production environment we use a cell that checks if there are cells with "Req" in their formula:
=SUM(IFERROR(FIND("Req", _range_to_check_with_formulas_ ),0))
In a VBA Sub, we test the cell value with a WHILE LOOP:
while cell_to_test.value <> 0
Application.Calculate
Application.RTD.RefreshData
DoEvents
Wend
Call _sub_to_do_some_stuff_

Answer 2

Built on #stexcec's answer, since I do not want to add a test cell in the worksheet, I use VBA to search for "requesting" based on values. The following function is used to find "requesting" in the Range containing Bloomberg formulae:
Function IsFinished(ws As Worksheet) As Boolean
Dim i, j, LastRow, LastCol As Integer
Dim r, c As Range
LastRow = ws.Range("A1").End(xlDown).Row
LastCol = ws.Range("A1").End(xlToRight).Column
Set r = ws.Range(ws.Cells(1, 1), ws.Cells(LastRow, LastCol))
Set c = r.Find("Requesting", LookIn:=xlValues)
If c Is Nothing Then
IsFinished = True
Else
IsFinished = False
End If
End Function
Then, similar to #stexcec's answer, the following code to used to wait until all cells are refreshed:
' Wait until updated
Do While True
Application.Calculate
Application.RTD.RefreshData
DoEvents
If IsFinished(Application.ActiveSheet) Then
Exit Do
End If
Loop