Запрос refre sh в последовательности, пусть первый запрос завершается sh перед обновлением следующего

Question

Dim con As WorkbookConnection
For Each con In ThisWorkbook.Connections
    If InStr(1, con.Name, "Query -") Then
        With con.OLEDBConnection
            .BackgroundQuery = False
            .Refresh
        End With
    End If
Next
End Sub

Код обновляет запросы по очереди, но не ждет, пока первый запрос не будет завершен, в результате чего запросы застревают. Я застрял на том, как сделать запросы Fini sh, а затем go к следующему в последовательности в книге.