CODEWITHSUNDEEP
excelreferencevba
Paweł
Paweł

Reputation: 25

Referring to Workbook Names

I have a trouble connected with getting name of Workbook object by given reference (RefersTo). Code below:

Sub add()

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

End Sub

Upvotes: 0

Views: 428

Answers (1)

Gary's Student
Gary's Student

Reputation: 96753

Just make sure Nazwa2 is a valid Name:

Sub add()

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

End Sub

To see the chain of names:

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

enter image description here

Upvotes: 1

Related Questions