Pessoal,
Estou desenvolvendo um projeto que possui uma conexão web com um arquivo CSV. Tenho rotinas que atualizam essa conexão utilizando a função RefreshAll (e, em alguns casos, apenas Refresh, quando desejo atualizar apenas 1 das conexões).
Durante os testes inciais correu tudo bem (rodando no Office 365). O problema surgiu quando rodei testes no Office 2016: após a execução do código, o Excel ativa a aba onde está essa conexão e seleciona o área dessa conexão. A simples mudança de aba e seleção da área não seriam problema, mas acontece que o código inserido após a atualização para retorno à aba de chamada não funciona, e preciso clicar com o mouse para retornar à aba desejada.
Tentei incluir a função DoEvents após a chamada de atualização para aguardar a conclusão antes de direcionar para a aba desejada, mas sem sucesso.

Estrutura:

Aba 1: Principal (botão que chama a função de atualizar e células que buscam valores atualizados da aba "Consulta")
Aba 2: Consulta (conexão web com arquivo CSV)
[/list:u:ksua4eho]

Abaixo o código utilizado:

Sub AtualizaConexao()
    With ThisWorkbook
        .RefreshAll
        DoEvents
        .Sheets("Principal").Activate
        .Sheets("Principal").Range("A1").Select
        MsgBox "Concluído"
    End With
End Sub

Alguém já se deparou com algo do tipo e teria alguma sugestão para solução?
Obrigado!