Формулы не пересчитываются

[tae1980]

Есть макрос:

Function СчетСумма() As Long
   РаботаВид = 1
   РаботаМастер = 2
   РаботаЦенаПоКаталогу = 3
   РаботаЦенаИная = 4
   РаботаПримечание = 5
   
   Сумма = 0
   For n = 1 To 10
      Работа = Evaluate(Names("ИД_СчетРабота" & n).Value)
      If Работа(РаботаВид, 1) <> "" Then
         Цена = 0
         If Работа(РаботаЦенаИная, 1) = "" Then
            If IsNumeric(Работа(РаботаЦенаПоКаталогу, 1)) Then Цена = Работа(РаботаЦенаПоКаталогу, 1)
         Else
            If IsNumeric(Работа(РаботаЦенаИная, 1)) Then Цена = Работа(РаботаЦенаИная, 1)
         End If
         Сумма = Сумма + Цена
      End If
   Next n
   СчетСумма = Сумма
End Function

В ячейке использую функцию так "=СчетСумма()".
При работе в книге, переходе между листами все работает. Но при открытии книги или переходе из другой книги появляется сообщение об ошибке "#ЗНАЧ!". Помогает только прямой выбор ячейки и нажатие ВВОД.
Пробовал

   ws.Calculate
   Application.Volatile

Не помогает. Как быть?

[IgorGO]

Не помогает. Как быть?

пользоваться дебагером при возникновении ошибок, прошли бы по-шагово по коду и нашли бы что ошибка в этой строке:

      Работа = Evaluate(Names("ИД_СчетРабота" & n).Value)

а когда видно где ошибка, становится понятно, почему возникла и как исправить

удачи!

[tae1980]

Сообщение от IgorGO

пользоваться дебагером при возникновении ошибок, прошли бы по-шагово по коду и нашли бы что ошибка в этой строке:

      Работа = Evaluate(Names("ИД_СчетРабота" & n).Value)

а когда видно где ошибка, становится понятно, почему возникла и как исправить
удачи!

Проходил раз 100. Прикол в том, что в 95% случаях работает нормально. Проблема возникает в двух указанных выше местах. То есть ошибка не постоянна. И пропадает при "ручном" запуске пересчета.

Обошел убрав макрос к чертям, ввел технический столбец, куда по ЕСЛИ переношу информацию. Теперь просто суммирую этот столбец. А его самого скрыл от пользователя. Не красиво, но работает.

[IgorGO]

Names, Cells, Worksheets и пр. ситуативно ссылаются на разные обьекты по мере смены активной книги, листа в книге. обращение к Names без привязки к книге приводит к обращению к обьекту Names из активной книги
аналогично:
Msgbox Cells(2,2) - может Вам выдать очень неожиданные результаты, когда не указано где находится ячейка, Cells(2,2) - это будет обращение к В2 активного в момент обращения листа, активной книги.

Работа = Evaluate(thisworkbook.Names("ИД_СчетРабота" & n).Value)

[tae1980]

Спасибо за ответ!
Учту в будущем. Почему-то пересчет формулы не происходит. Попытался ловить событие активизации листа, и принудительно пересчитывать лист. Но без толку, событие наступает, а вот формула не пересчитывается (в ней ставил точки останова).