The References property returns the set of references in a project. It is an accessor property (that is, a property that returns an object of the same type as the property name).
Sub Get_References_in_Project()
Dim i1
For i1 = 1 To Application.VBE.ActiveVBProject.References.Count
' Get the Name of the Reference
RefName = Application.VBE.ActiveVBProject.References(i1).name
' Get the Description of Reference
RefDesc = Application.VBE.ActiveVBProject.References(i1).Description
'Returns a Boolean value indicating whether or not the Reference object points to a valid reference in the registry. Read-only.
If Application.VBE.ActiveVBProject.References(i1).IsBroken = True Then
RefBroken = True
End If
Next i1
End Sub
Posts
