Выкинет ошибку, если не открыта ни одна книга.

[UnKonstantin]

MacroToolsVBA/scripts/Modules/N_ObfParserVBA.bas

Line 33 in 9f9e2d8

32: Application.Calculation = xlCalculationManual

Нужна проверка строкой выше:
If Application.Workbooks.Count = 0 Then Exit Sub

либо обработчик ошибок дополнить, как в "Скрыть Модули" - там пишет по красоте.