-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
Named Ranges
- Thread starter boylejob
- Start date
Scott Huish
MrExcel MVP
- Joined
- Mar 17, 2004
- Messages
- 20,351
- Office Version
- 365
- Platform
- Windows
Perhaps:
Code:
Sub test()
MsgBox Names("namedrange").RefersTo
End Sub
Upvote
0
xenou
MrExcel MVP
- Joined
- Mar 2, 2007
- Messages
- 16,836
- Office Version
- 2019
- Platform
- Windows
This is the RefersTo property.
Don't forget the Name property of a Name is Name:
Name.Name = "myName"
Name.RefersTo = "$A$1"
Not knowing if you have thousands of names, here's some output to a new workbook:
Don't forget the Name property of a Name is Name:
Name.Name = "myName"
Name.RefersTo = "$A$1"
Not knowing if you have thousands of names, here's some output to a new workbook:
Code:
Sub ListNames()
Dim nm As Name
Dim x As Integer
Dim wb As Workbook
Dim myNames()
If ActiveWorkbook.Names.Count = 0 Then
MsgBox ("No names found in active workbook.")
Exit Sub
End If
ReDim myNames(1 To ActiveWorkbook.Names.Count, 1 To 2)
For Each nm In ActiveWorkbook.Names
x = x + 1
myNames(x, 1) = nm.Name
myNames(x, 2) = "Refers To: " & nm.RefersTo
Debug.Print myNames(x, 1) & " | " & myNames(x, 2)
Next nm
Set wb = Workbooks.Add
wb.Sheets(1).Range("A1").Resize(UBound(myNames, 1), 2).Value = myNames
wb.Sheets(1).Columns("A:B").EntireColumn.AutoFit
End Sub
Upvote
0
Similar threads
- Question
- Solved
