or
Sub listnames()
Application.Calculation = xlManual
For Each n In ThisWorkbook.Names
lr = Cells(Rows.Count, "a").End(xlUp).Row + 1
Cells(lr, 1) = n.Name
Cells(lr, 2) = n
Next
Application.Calculation = xlAutomatic
End Sub

--
Don Guillett
SalesAid Software

"Bill Ridgeway" wrote in message
...
If you want a list of Range names (i.e. where a name has been defined for
a cell)
Got to a blank area or open a new sheet
Click on <Insert<Name<Paste<Paste List

Regards.

Bill Ridgeway
Computer Solutions

"Bharath Rajamani" wrote in
message ...
My spreadsheet has many formulae with Names. I want to view the sheet
with
the actual cell references instead of Names .. how to?