Ошибка "AppActivate Application.Name"

[яСергей]

Добрый день всем. Прошу помощи в такой вот ситуации.
В коде файла (Ворд2007) (например, "А") есть "AppActivate Application.Name" в разных местах. Нормально работает себе, пока не возникнет следующая ситуация:

Файл А открыт. Затем открыт любой другой Ворд-файл, в нем несколько раз перемещаем курсор и закрываем. После этого в "А" возникает ошибка в этой строке (Rin-time error '5'. Invalid procedure call or argument). Во всех местах, где она есть.
Причем пока другой файл открыт (или свернут) ошибки нет. Только после закрытия другого файла.

Выкладывать файл, наверное, нет смысла. А вот пример макроса, выдающего такую ошибку:

Public Sub showU1()
U1.Show 'Показать раб. форму.
AppActivate Application.Name 'Фокус на документ. Не срабатывает после того, как открыли другой док, его потыкали И ЗАКРЫЛИ. Если он открыт или свернут, то все нормально.
End Sub