Checking if a property contains another specific string

[Guest]

I am trying to see if a defined name's RefersTo property contains a
particular string.
To be more specific, I am going through the defined names in the workbook
and checking if any of them are pointing to a particular file path or a
worksheet.

Any pointers would be appreciated.

Jay

 

[Guest]

for each nm in activeworkbook.names
if instr(1,nm.Refersto,"book1.xls",vbTextcompare) then
msgbox nm.name & " " & nm.Refersto
end if
Next