named cells

[ranswert]

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

 

[Mike Fogleman]

There is an ADD-IN called ASAP Utilities that will put all named ranges in a
new workbook, along with many, many other useful tools.

http://www.asap-utilities.com/

Mike F

 

[Don Guillett]

Do you want a list of defined names?

 

[ranswert]

yes

Do you want a list of defined names?

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)

 

[Mike H]

Perhaps I'm missing something but isn't it F3 and paste list

Mike

 

[ranswert]

I was trying to get the defined names for a certain range.

 

[Gary''s Student]

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

 

[ranswert]

Thanks I'll give that a try

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