Suche in Shapes

'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