Исходный текст
Option Explicit
Call ShowReferencedObjInfo(ThisObject)
'==============================================================================
' Вывести описание всех объектов, атрибуты которых ссылаются на данный
'==============================================================================
Sub ShowReferencedObjInfo(Obj)
Dim RefObjects, strInfo, RefObj
'Получить ссылку на коллецию контейнеров объекта
Set RefObjects = ThisObject.ReferencedBy
'Если коллекция пустая, закончить работу
If RefObjects.Count=0 Then
MsgBox "Ни один объект системы не ссылается на данный."
Exit Sub
End If
'Перечислить все объекты, имеющие атрибуты-ссылки на данный объект
For Each RefObj In RefObjects
strInfo = strInfo & "=>" & RefObj.Description & Chr(13)
Next
'Вывести информацию в окно сообщений
ThisApplication.AddNotify "Объекты, имеющие атрибуты-ссылки на """ &_
Obj.Description & """" & Chr(13) & "(всего : " & RefObjects.Count & ")"
ThisApplication.AddNotify strInfo
End Sub
'==============================================================================