List of loaded VBA projects

[Anonymous]

Is there a way to programmatically get a list of all loaded
VBA projects?

Thanks

[Anonymous]

Public Function GetVBAProjects()

    

    Dim i As Long, projects() As String

    Dim objIDE As VBIDE.vbe

    

    Set objIDE = Application.vbe

    

    ReDim projects(0 To objIDE.VBProjects.Count - 1, 1)

  

    For i = 0 To objIDE.VBProjects.Count - 1

        projects(i, 0) = objIDE.VBProjects(i + 1).Name

        projects(i, 1) = objIDE.VBProjects(i + 1).BuildFileName

    Next

    

    GetVBAProjects = projects

    

End Function