Or, to get them in a worksheet:

Selection.Listnames

Select just one cell, otherwise Excel will limit the size of the list to the
size of the selection

--
Kind regards,

Niek Otten
Microsoft MVP - Excel

"Gary''s Student" wrote in message
...
Sub NameThatTune()
Dim s As String
s = ""
For Each n In ActiveWorkbook.Names
If s = "" Then
s = n.Name & " " & n.RefersTo
Else
s = s & Chr(10) & n.Name & " " & n.RefersTo
End If
Next
MsgBox (s)
End Sub
--
Gary''s Student - gsnu200826


"BR" wrote:

Looking for a way to get a consolidated list of all Names & Cell
references.
Is Excel able to throw this out ? Guidance on writing a macro for this is
welcome.

Best,
BR
--
-----