The newsreader wrapped the code. Make sure the "If" up to the "0 Then" is
on one line.. This should be on one line:

If InStr(1, s.OLEFormat.Object.Caption, strFind, vbTextCompare) 0 Then


To use it, you would pass the word you are searching for as a parameter.
For example, to look for "string1":

FindInTextBox "string1"


It will search for "string1" in text boxes in the active sheet.




--
Hope that helps.

Vergel Adriano


"lbbss" wrote:

I tried pasting that routine into a vba macro, but it crashed before
the 0 Then line. Not sure how that macro should work. Where would
you input the word you are searching for? tx