Sub ShowReferences() Dim vbp Set vbp = ActiveWorkbook.VBProject Dim ref For Each ref In vbp.References If ref.BuiltIn = False Then Debug.Print "[" & ref.Name & "]" Debug.Print "GUID : [" & ref.GUID & "]" Debug.Print "FullPath : [" & ref.FullPath & "]" Debug.Print "Description : [" & ref.Description&; "]" Debug.Print "" End If Next End Sub