VBA Presentations.open: презентация закрывается после End sub, но не должна

Question

мой первый вопрос здесь, поэтому извиняюсь, если по ошибке я нарушаю какие-либо обычаи или плохо формулирую свой вопрос;)!

Этот крошечный набор кода работает уже 10 лет и неожиданно (я полагаю, обновление в офисе)?!) есть проблема:

Sub open_macrotoolbox()

    Dim oPPTApp As PowerPoint.Application
    Dim oPPTPres As PowerPoint.Presentation

    Set oPPTApp = New PowerPoint.Application

    Set oPPTPres=oPPTApp.Presentations.Open("[PATH]\Blank.potm", WithWindow:=msoFalse)

End Sub

Вот уже 10 лет он открывает blank.potm со скрытым окном. Почему? потому что в blank-potm я поместил пару других макросов-помощников, так как они не отображаются, поэтому я могу просто нажать STRG + N, чтобы получить доступ к этим помощникам из любой презентации.

Через несколько дней blank.potm снова закрываетсякогда "End Sub" достигнут. Этого можно избежать, закомментировав часть withWindow: msoFalse. Тогда он не закрывается.

Есть идеи? Очень ценится!

Лучший, Андреас