Добрый день. Добавила макрос, что бы при открытий обновлялись все запросы и сохранялся файл. На локальном компьютере работает. А если размещаю в сетевую (общую) папку дает ошибку. на эту строку "Application.OnTime TimeToRun". Подскажите в чем может быть проблема и пути ее решения?

Данные макросы использую из одного из видео Николая:

Dim TimeToRun   'глобальная переменная, где хранится следующее время запуска

'это главный макрос

Sub MyMacro()
  For Each oc In ThisWorkbook.Connections
       'запоминаем значение обновления в фоне для запроса
       IsBG_Refresh = oc.OLEDBConnection.BackgroundQuery
       'выставляем принудительно ждать завершения запроса
       oc.OLEDBConnection.BackgroundQuery = False
       'обновляем запрос
       oc.Refresh
       'возвращаем обновление в фоне в первоначальное состояние
       oc.OLEDBConnection.BackgroundQuery = IsBG_Refresh
   Next

   
  ThisWorkbook.Save
  'Range("A1").Value = Now
  Call NextRun                                        'запускаем макрос NextRun для назначения след.времени запуска
End Sub

'этот макрос назначает время следующего запуска главного макроса
Sub NextRun()
   
   TimeToRun = Now + TimeValue("01:00:00")     'прибавляем к текущему времени 5 мин
   Application.OnTime TimeToRun, "MyMacro"     'назначаем следующий запуск
End Sub

'макрос для запуска последовательности повторений
Sub Start()
   Call NextRun
End Sub

'макрос для остановки последовательности повторений
Sub Finish()
   Application.OnTime TimeToRun, "MyMacro", , False
End Sub

Добрый день. использовала макрос для ввода время без двоеточия
все было хорошо пока не решила объединить два макроса)))(с макросами не дружу)
Сейчас и идея не получилась по объединению, чтобы и время можно было вводить и был пополняемый всплывающий список.
Помогите понять почему такая проблема началась?
Заполняются листы АТС и диспетчер столбец "по"