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

[Legacy 98055]

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]

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

 

[Legacy 98055]

Thanks TB!
Exactly what I needed!
Tom