vbaで定義済みの名前NamesとRangeの参照

Sub name2range_test()
Debug.Print ThisWorkbook.Names.Count
For i = 1 To ThisWorkbook.Names.Count
    Debug.Print ThisWorkbook.Names.Item(i).Name & " -> " & ThisWorkbook.Names.Item(i).RefersTo
    Debug.Print ThisWorkbook.Names.Item(i).Name & " -> " & ThisWorkbook.Names.Item(i).RefersToRange.Address
Next
'あるいは
Debug.Print Range(ThisWorkbook.Names.Item(1).RefersTo).Address

End Sub