Можно ли прописывать формулу в именах средствами VBA?

Формулировка задачи:

Добрый День. Вопрос по сути очень прост.

Private Sub CommandButton3_Click()
Dim str
str = "=ЕСЛИ(1+1=2;1;0)"
    
    ActiveWorkbook.Names.Add Name:="DAS", RefersTo:=str
    
End Sub

Задать имя как формулу невозможно через VBA?

Формула специально простая. А так задача в том, чтобы задать много имен с немного отличающимися формулами. Разово. Справку по Name прочитал, но ограничений не нашел. Огромное Спасибо за Ваше внимание.

Решение задачи: «Можно ли прописывать формулу в именах средствами VBA?»

textual
                            Листинг программы 
                        

                            Private Sub CommandButton3_Click()
    Dim strName As String
    strName = "=ЕСЛИ(1+1=2;1;0)" 'Or 1
 
    ActiveWorkbook.Names.Add Name:="DAS", RefersToLocal:=strName
End Sub
                        