Workbook.Model (Excel)

Returns the top-level Model object that is the one data model for the workbook.

Dim mdlModel As Model
Set mdlModel = ActiveWorkbook.Model