I have a spreadsheet with over 1,000 range names. 90% are not valid anymore
I woul like to list all the range names thes be able to have the vba code go
through this list and delet all the ones that I tag as non needed

thanks
--
Helping Is always a good thing

I found this in VBA help files.
Sub nms()
Set nms = ActiveWorkbook.Names
Set wks = Worksheets(1)
For r = 1 To nms.Count
wks.Cells(r, 2).Value = nms(r).Name
wks.Cells(r, 3).Value = nms(r).RefersToRange.Address
Next
End Sub

"QuietMan" wrote:

> I have a spreadsheet with over 1,000 range names. 90% are not valid anymore
> I woul like to list all the range names thes be able to have the vba code go
> through this list and delet all the ones that I tag as non needed
>
> thanks
> --
> Helping Is always a good thing

Get the (free) Name Manager:

http://www.jkp-ads.com/OfficeMarketPlaceNM-EN.asp
at jkp's Application Development Service

--
Regards,
Tom Ogilvy



"QuietMan" wrote:

> I have a spreadsheet with over 1,000 range names. 90% are not valid anymore
> I woul like to list all the range names thes be able to have the vba code go
> through this list and delet all the ones that I tag as non needed
>
> thanks
> --
> Helping Is always a good thing

Thanks, good enough to get me started
--
Helping Is always a good thing


"JLGWhiz" wrote:

> I found this in VBA help files.
> Sub nms()
> Set nms = ActiveWorkbook.Names
> Set wks = Worksheets(1)
> For r = 1 To nms.Count
> wks.Cells(r, 2).Value = nms(r).Name
> wks.Cells(r, 3).Value = nms(r).RefersToRange.Address
> Next
> End Sub
>
> "QuietMan" wrote:
>
> > I have a spreadsheet with over 1,000 range names. 90% are not valid anymore
> > I woul like to list all the range names thes be able to have the vba code go
> > through this list and delet all the ones that I tag as non needed
> >
> > thanks
> > --
> > Helping Is always a good thing