Thanks June7 that worked perfectly. I did make the following adjustment Added The Dim statement: Dim ref as Variant, Refname as String, refDesc as string, refpath as string That allowed me to leave the Option Explicit active.
Code:
Sub Get_References_In_This_Project()
Dim refIsBroken As String
Dim ref As Variant, Refname As String, refDesc As String, refPath As String
'Loop thru each reference in this VBA Project
For Each ref In Application.VBE.ActiveVBProject.References
refIsBroken = "OK"
' Get the Reference Name
Refname = ref.Name
refDesc = ref.Description
refPath = ref.FullPath
'Return True/False indicating if Reference link is broken: True(Ref is missing) or False (Ref OK)
If ref.IsBroken = True Then
refIsBroken = "***Missing/Broken***"
Else
refIsBroken = "OK"
End If
Debug.Print Refname & ": " & refDesc & " - " & refPath & " -> " & refIsBroken
Next ref
End Sub