等待完成RefreshALL以继续以下事件

Question

我有一个问题，如果有人有兴趣帮助我，我会很高兴的。

我有一个宏来刷新我的所有工作表并返回到确定的单元格。但是我想等待更新（因为它是外部数据，有时需要一段时间才能完成更新），然后继续步骤如下...

我在想也许是布尔函数，但是我不知道该怎么做（我的意思是写代码）。也许还有其他更好的解决方案...

谢谢！

我使用以下代码（忽略葡萄牙语中的表名）：

'
' AtualizarTudo Macro
' Atualiza Base de Dados e Ordena Pelo melhor ajuste de posição
'

'
    ActiveWorkbook.RefreshAll
    Sheets("Controle").Select
    ActiveWorkbook.Worksheets("Controle").ListObjects("Controle_Principal").Sort. _
        SortFields.Clear
    ActiveWorkbook.Worksheets("Controle").ListObjects("Controle_Principal").Sort. _
        SortFields.Add Key:=Range("Controle_Principal[[#All],[Defasagem]]"), SortOn _
        :=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Controle").ListObjects("Controle_Principal"). _
        Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub