Ссылаясь на имена книг

Question

У меня проблема с получением имени объекта Workbook по заданной ссылке (RefersTo). Код ниже:

Sub add()

  ThisWorkbook.Names.add Name:="Letee", RefersTo:="Nazwa2"
  MsgBox ThisWorkbook.Names(RefersTo:="Nazwa2")

End Sub

Answer 1

Просто убедитесь, что Nazwa2 является действительным именем:

Sub add()

Sheets(1).Range("A1").Name = "Nazwa2"
ThisWorkbook.Names.add Name:="Letee", RefersTo:="Nazwa2"
MsgBox ThisWorkbook.Names(1)

End Sub

Чтобы увидеть цепочку имен:

Sub addx()

    Sheets(1).Range("A1").Name = "Nazwa2"
    ThisWorkbook.Names.add Name:="Letee", RefersTo:="Nazwa2"

    i = 1
    For Each nm In ActiveWorkbook.Names
         Cells(i, 1).Value = nm.Name
         Cells(i, 2).Value = "'" & nm.RefersTo
     i = i + 1
    Next

End Sub