останавливается выполнение процедуры по таймеру

[Sergey112233]

Первый раз файлы открываются, обновляются, сохраняются.
Но во-второй раз при открытии файла Расчет2.xls процедура останавливается и появляется окно Run Time Error 1004 Method Open of object Workbooks failed
Подскажите, пожалуйста, «из-за чего это происходит и что делать?»

Sub Кнопка4_Щелкнуть()
Dim dTime As Date
Workbooks.Open Filename:="D:\" & "Расчет" & ".xls"
Application.Run "'Расчет.xls'!Кнопка41_Щелкнуть"
ActiveWorkbook.Close (True)

Workbooks.Open Filename:="D:\" & "Расчет2" & ".xls"
Application.Run "'Расчет2.xls'!Кнопка181_Щелкнуть"
ActiveWorkbook.Close (True)
dTime = Now + TimeValue("00:01:00")
Application.OnTime dTime, "Кнопка4_Щелкнуть" ', , True

End Sub