ODBCConnection.Refreshing (Excel)

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

Use the CancelRefresh method to cancel background queries.

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