Workbook.VBProject (Excel)

Returns a VBProject object that represents the Visual Basic project in the specified workbook.

Dim vbpVBProject As VBIDE.VBProject
Set vbpVBProject = ActiveWorkbook.VBProject