Sub listnames()
For i = 1 To ThisWorkbook.Names.Count
Cells(i, 1) = Names(i).Name
Cells(i, 2) = Names(i)
Next i
End Sub
--
Don Guillett
SalesAid Software

"Mike C" wrote in message
...
I would like a way to print out the list of defined names in a workbook.


thanks,

Mike