Option ExplicitPrivate VBE As VBIDE.VBEPublic Sub FindProject() Dim project As VBIDE.VBProject Set project = Workbooks("Book1.xls").VBProject MsgBox project.NameEnd Sub