Workbook.Model (Excel)

Retorna o objeto de modelo de nível superior que é o único modelo de dados da pasta de trabalho. Somente leitura.

Dim mdlModel As Model
Set mdlModel = ActiveWorkbook.Model