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

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
"ranswert" wrote in message
...
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

Do you want a list of defined names?

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"ranswert" wrote in message
...
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

yes

"Don Guillett" wrote:

Do you want a list of defined names?

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"ranswert" wrote in message
...
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

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

Mike

"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

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

"Mike H" wrote:

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

Mike

"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

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

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