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