Свойство ActiveVBProject

Возвращает активный проект в окно проекта. Только для чтения.

Дополнительные сведения
Свойство ActiveVBProject возвращает проект, выделенный в окне проекта или проект, содержащий выделенный компонент. В последнем случае проект не обязан быть выделенным. Вне зависимости от того, имеется ли проект, выделенный явным образом, всегда существует активный проект.

Пример
В следующем примере свойство ActiveVBProject используется для определения имени активного проекта.

Debug.Print Application.VBE.ActiveVBProject.Name
Hosted by uCoz