Using "A1:A10" as the range "My_List" this code will throw up a message box with the contents of these cells. I hope this is what you want.
<pre>
Public Sub main()
Dim NameSht As Worksheet
Dim NameRng As String
Dim Rng As Range
Dim Msg As String
Dim SubStr As String
Dim Index As Long
'Create space instring
Msg = Space(10000)
Index = 1
Set NameSht = Application.Names("My_List").RefersToRange.Worksheet
NameRng = Application.Names("My_List").RefersToRange.Address
For Each Rng In NameSht.Range(NameRng)
SubStr = Rng.Value & vbNewLine
Length = Len(SubStr)
' stuff the string inside the result variable
Mid$(Msg, Index, Length) = SubStr
' advance index
Index = Index + Length
Next
'Trim extra characters off of Msg
Msg = Left$(Msg, Index - 1)
MsgBox Msg
End Sub
</pre>