Option Explicit Private VBE As VBIDE.VBE Public Sub FindProject() Dim project As VBIDE.VBProject Set project = Workbooks("Book1.xls").VBProject MsgBox project.Name End Sub