Getting list of named ranges
 

Hello

I want to get A list of the ranges that i have named in a workbook that I
did not create. I named 2 ranges

But when I run the following code, I get the 2 ranges I named plus
additional names that I did not create and that don't appear in the define
names dialog.
These other names are as follows and I have no idea what they are or where
they came from but they are not listed in the Define Name dialog box.

'FT Claims'!_FilterDatabase
'PT Claims'!_FilterDatabase
'Midland Account'!_FilterDatabase

I want the code to only return the named ranges (which are the names listed
in the Define Name dialog)

Here is the code I used


Sub GetNamedRanges()
Dim nMames As Names
Dim nName As Name

For Each nName In Application.ThisWorkbook.Names
MsgBox nName.Name
Next nName

End Sub

--
DZ

Getting list of named ranges
 

Sub GetNamedRanges()
Dim nMames As Names
Dim nName As Name

For Each nName In Application.ThisWorkbook.Names
If Not nName.Name Like "*_FilterDatabase" And _
Not nName.Name Like "*Print_Area" And _
Not nName.Name Like "*Print_Titles" And _
Not nName.Name Like "*wvu.*" And _
Not nName.Name Like "*wrn.*" And _
Not nName.Name Like "*!Criteria" And _
Not nName.Name Like "*xlfn.*" Then
MsgBox nName.Name
End If
Next nName

End Sub



--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)



"DZ" wrote in message
...
Hello

I want to get A list of the ranges that i have named in a workbook that I
did not create. I named 2 ranges

But when I run the following code, I get the 2 ranges I named plus
additional names that I did not create and that don't appear in the define
names dialog.
These other names are as follows and I have no idea what they are or where
they came from but they are not listed in the Define Name dialog box.

'FT Claims'!_FilterDatabase
'PT Claims'!_FilterDatabase
'Midland Account'!_FilterDatabase

I want the code to only return the named ranges (which are the names
listed
in the Define Name dialog)

Here is the code I used


Sub GetNamedRanges()
Dim nMames As Names
Dim nName As Name

For Each nName In Application.ThisWorkbook.Names
MsgBox nName.Name
Next nName

End Sub

--
DZ

Getting list of named ranges
 

Thanks That did it.

Now I'm very curious. What are those other names that you filtered out. How
are they created. Where do they come from?

DZ

Getting list of named ranges
 

They are system generated names that are created when you use certain system
functionality.

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)



"DZ" wrote in message
...
Thanks That did it.

Now I'm very curious. What are those other names that you filtered out.
How
are they created. Where do they come from?

DZ