Model.DataModelConnection (Excel)

Returns the model WorkbookConnection object from the workbook connections collection that connects to the model.

Dim wbconDataModelConnection As WorkbookConnection
Set wbconDataModelConnection = ActiveWorkbook.Model.DataModelConnection