Suche in Shapes

Hallo Leute,
was ist in meinem Programm falsch?
Danke für Eure Unterstützung..

'Suchen in Shapes
On Error Resume Next
For i = 1 To ActiveSheet.Shapes.Count
Err.Clear
ActiveSheet.Shapes(i).Select
strTextfeld = Selection.Characters.Text
If InStr(1, strTextfeld, strSuchbegriff, 1) And Err.Number = 0 Then
ActiveSheet.Shapes(i).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = FARBE
End If
Next i

> 0 fehlt:
If InStr(1, strTextfeld, strSuchbegriff, 1) > 0 And Err.Number = 0 Then