OLEDBConnection.Refreshing (Excel)

True if a background OLE DB query is in progress for the specified OLE DB connection.

Use the CancelRefresh method to cancel background queries.

Dim booRefreshing As Boolean
booRefreshing = ActiveWorkbook.Connections(1).OLEDBConnection.Refreshing