Autocad VBA подшивки

Здравствуйте, решил сделать в vba для autocad автонумерацию в подшивке. Это первое, что я делаю в vba для autocad*а.
За образец брал вот такой документ CP15-1
Итак, вот что навоял

Как вы видите, если посмотрите комменты, то я в итоге попадаю в элемент, а как мне считать его имя и номер листа, я не как не могу сообразить. И в последствии изменить номер листа будет необходимо.
Уже второй день сижу и не могу понять, подскажите, если кто может.

Вот ссылка на дропбокс, с оригиналом файла vba файл макроса
Да, и ещё, прошёлся по объектам подшивки и получил такие типы объектов:
AcSmSheet-это объект лист. А остальные что за объекты?
AcSmCustomPropertyBag
AcSmSheetViews
AcSmAcDbLayoutReference