Searching for Text in Shapes - VBA

[briealy]

Hi everyone!
I created an org chart in Excel, using rectangles and straight/elbow connectors. I want to include a search box that will allow users to input an employee's name and Excel will jump to/select the rectangle that contains the name.

I'm just learning VBA, so I'm working with code that I find online and tweaking it to fit my needs. I've been pretty successful figuring out other issues, but this one has me stuck. The code I'm using (below), will occasionally work, but usually produces Run-time error '-2147024809 (80070057)': The specified value is out of range.

When I debug, it highlights this line: sTemp = shp.TextFrame2.TextRange.Characters.Text

Any thoughts? Thanks in advance!!

[Neil_]

The elbow connectors can't contain text. You could check for the shape's type or you could go Chuck Norris and put the following code at the start of your Sub

On Error Resume Next

Lemmings will die though.