What will be the vba code to display all the "name" (text) of the named
ranges and its reference range it refers to.

I am trying to create some thing like this

For each rname in Activeworkbook.names.count
msgbox "name is: " & rname.name & "it refers to: " & rname.range
next

Please help.