List Data from the Names collection

List Data from the Names collection 

I was reading a site today discussing the Names collection and Name object.  The gist of the exercise was to put onto a spreadsheet the Names in a workbook.
Dim i as Double
For i = 1 to <WorkBook>.Names.Count
   <worksheet>.Cells(i,1) = <Workbook>.Names(i).Name
   <worksheet>.Cells(i,<other column number>) = <Workbook>.Names(i).<Other Attribute>
Next i

This is not an uncommon exercise for checking current values of data not easily seen.