VBA?

Sub NamesList()
Dim sh As Worksheet
Dim nme As Name
Dim i As Long

On Error Resume Next
Set sh = Worksheets("Names List")
If sh Is Nothing Then
Worksheets.Add.Name = "Names List"
End If
On Error GoTo 0
With Worksheets("Names List")
For Each nme In ActiveWorkbook.Names
i = i + 1
.Cells(i, "A").Value = nme.Name
.Cells(i, "B").Value = nme.RefersTo
Next nme
End With
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"NameSearcher" wrote in message
...
Suggestion is on point but I can't seem to bring up the sequence. I have
EXCEL 2000. I have tried the Tools\Customize\ command and tried to set
up a
custom menu bar with the Insert List but I haven't been able to get it to
work. Maybe walk me through it slower. Thanks.


"arno" wrote:

Menu Insert/Names/Insert/Insert List

arno

"NameSearcher" schrieb im
Newsbeitrag ...
How do I get a list of all the names being used in an EXCEL workbook?
The
"Insert\Names... " sequence of commands gets a list you can view on
the
screen, about 10 at a time. I would like to copy/paste the whole
list. I
would also like the list to include (as a separate column) associated
text
showing the references for each name.