Displaying all Named Ranges in workbook

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,

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
[email protected]
"Barb Reinhardt" <[email protected]> wrote in message
news:[email protected]...
> 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,

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

Thanks

"Don Guillett" wrote:

> 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
> [email protected]
> "Barb Reinhardt" <[email protected]> wrote in message
> news:[email protected]...
> > 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,
>
>
>

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)

"Barb Reinhardt" <[email protected]> wrote in message
news:[email protected]...
> 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,

widen the column?

--
Don Guillett
SalesAid Software
[email protected]
"Barb Reinhardt" <[email protected]> wrote in message
news:[email protected]...
> Anything after the ! in column 2 is not being displayed. What needs to
> be
> changed?
>
> Thanks
>
> "Don Guillett" wrote:
>
>> 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
>> [email protected]
>> "Barb Reinhardt" <[email protected]> wrote in
>> message
>> news:[email protected]...
>> > 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,
>>
>>
>>