OLEDBConnection.Refreshing (Excel)
True si está en curso una consulta OLE DB en segundo plano para la conexión OLE DB especificada.
Use el método CancelRefresh para cancelar las consultas en segundo plano.
Dim booRefreshing As Boolean
booRefreshing = ActiveWorkbook.Connections(1).OLEDBConnection.Refreshing