Thanks I'll give that a try

"Gary''s Student" wrote:

Sub listum()
Dim Nm As Name
Set r = Selection
namelist = ""
For Each Nm In ActiveWorkbook.Names
If Intersect(Range(Nm), r) Is Nothing Then
Else
namelist = namelist & "," & Nm.Name
End If
Next
MsgBox (namelist)
End Sub


Forgive the leading comma


--
Gary''s Student - gsnu200766


"ranswert" wrote:

Is there a way to write a procedure that will pull all the cell names off a
range of cells and put it into a list?
Thanks