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