Application VisualBasic Script

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