Displaying all Named Ranges in workbook

[Guest]

Programmatically, how do I get all of the named ranges in the workbook to be
displayed on my Sheet1. I have named ranges that are workbook specific and
worksheet specific. I'd like to know the sheet that they are specific to if
they are present.

Thanks,

 

[Don Guillett]

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

 

[Guest]

Anything after the ! in column 2 is not being displayed. What needs to be
changed?

Thanks

 

[Bob Phillips]

Barb,

Get a hold of Jan Karel Pieterse's Namemanager utility
http://www.jkp-ads.com/OfficeMarketPlaceNM-EN.asp

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

 

[Don Guillett]

widen the column?