Как в функции по имени ячейки вернуть ее значение ?(+)

[Alex_V]

Я присвоил куче ячеек имена (Name) ( по их логическому смыслу)

Хочу написать функцию, которая берет в качестве параметра имя ячейки, и возращает либо ее значение, либо 0 ,если такого имени не существует.
Подскажите, как сделать ?
Если имя существует, все OK
А если нет то #знач

Пробовал проверку на IsError и VarType - не получается.

[GSerg]

=ЕСЛИ(ЕОШ(имя_ячейки);0;имя_ячейки)

[Alex_V]

Так это в самом Excel, а мне в макросе функция нужна

[GSerg]

Код: Выделить всё

Function func(ByVal RangeName As String, DefaultValue As Variant) As Variant
  func = DefaultValue
  On Error Resume Next
  func = Range(RangeName).Value
End Function

[Alex_V]

Спасибо, здесь все OK.
А вот еще проблема - меняешь значение ячейки, на которую зашито имя, а функция не выполняет перерасчет значения .
F9 не помогает . Как заставить ячейки с зашитыми в них формулами , а их может быть много, перерасчитаться.

[GSerg]

Код: Выделить всё

Function func(ByVal RangeName As String, DefaultValue As Variant) As Variant
  application.volatile
  func = DefaultValue
  On Error Resume Next
  func = Range(RangeName).Value
End Function

[Alex_V]

Все OK, Большое спасибо !!