OLEDBConnection.Refreshing (Excel)
True se uma consulta OLE DB em segundo plano estiver em progresso para a conexão OLE DB especificada. Boolean de leitura/gravação.
Use o método CancelRefresh para cancelar as consultas em segundo plano.
Dim booRefreshing As Boolean
booRefreshing = ActiveWorkbook.Connections(1).OLEDBConnection.Refreshing