maybe a subroutine like this...

Sub FindInTextBox(strFind As String)

Dim s As Shape

For Each s In ActiveSheet.Shapes
If s.Type = msoTextBox Then
If InStr(1, s.OLEFormat.Object.Caption, strFind, vbTextCompare)
0 Then
MsgBox strFind & " found in " & s.Name
s.Select
Exit For
End If
End If
Next s

End Sub




--
Hope that helps.

Vergel Adriano


"lbbss" wrote:

I have text info in my excel text box, but I can't do a word search in
the text box. Any ideas. What about inside my cell notes?