Re Post Named Ranges. Much easier question here... Thanks

Tom Schreiner · Mar 30th, 2002, 08:36 AM

Hi
I was able to answer my own question with a litter deeper digging into VBA help.

However, one question remains.

How do I loop through a worksheet and find all of the Named Ranges?

Need this to work VIA VBA no the label combo box.

Thanks!

Tom

[ This Message was edited by: TsTom on 2002-03-30 07:38 ]

[ This Message was edited by: TsTom on 2002-03-30 08:00 ]

Tommy Bak · Mar 30th, 2002, 08:54 AM

This find all names on worksheet 1
Change Sheets(1) to your worksheet

Sub FindName()
For Each n In ActiveWorkbook.Names
If InStr(1, n.RefersTo, Sheets(1).Name) Then
msgbox (n.Name)
End If
Next
End Sub

regards Tommy

Tom Schreiner · Mar 30th, 2002, 09:00 AM

Thanks TB!
Exactly what I needed!
Tom

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 30th, 2002, 08:36 AM	#1
Tom Schreiner Board Regular Join Date: Mar 2002 Location: Cincinnati, Ohio, USA Posts: 6,824	Hi I was able to answer my own question with a litter deeper digging into VBA help. However, one question remains. How do I loop through a worksheet and find all of the Named Ranges? Need this to work VIA VBA no the label combo box. Thanks! Tom [ This Message was edited by: TsTom on 2002-03-30 07:38 ] [ This Message was edited by: TsTom on 2002-03-30 08:00 ]

Mar 30th, 2002, 08:54 AM	#2
Tommy Bak Board Regular Join Date: Feb 2002 Location: Guderup, Denmark Posts: 287	This find all names on worksheet 1 Change Sheets(1) to your worksheet Sub FindName() For Each n In ActiveWorkbook.Names If InStr(1, n.RefersTo, Sheets(1).Name) Then msgbox (n.Name) End If Next End Sub regards Tommy

Mar 30th, 2002, 09:00 AM	#3
Tom Schreiner Board Regular Join Date: Mar 2002 Location: Cincinnati, Ohio, USA Posts: 6,824	Thanks TB! Exactly what I needed! Tom