Закрывается excel при запуске макроса

После запуска макроса открывается первый документ на обновление связей. В процессе работы закрываются и макрос, и документ, который нужно обновить. При этом в Debug'е при последовательном выполнении всё открывает нормально и не ругается. В чем может быть проблема?

Dim DDS As String
DDS = Dir("Z:\Тех.файлы\Реестр ДДС *********.xlsx")
Do While DDS <> ""
Workbooks.Open "Z:\Тех.файлы\" & DDS
 ActiveWorkbook.RefreshAll
ActiveWorkbook.Close SaveChanges:=True
DDS = Dir
Loop