Delete method of the Shape object problems - vba

Question

I have a Word document with a number of AutoShapes.
I loop through the shapes by a for loop, and select those with a specific foreColor in order to delete them:
For each sh in ActiveDocument.Shapes
if sh.fill.foreColor = myColor then
sh.delete
end if
next i
This does not work. However if I replace sh.fill.foreColor with another color for example, it works perfectly.
The more odd is that if I put sh.delete after sh.fill.foreColor = newColor, the first line doesn't execute !! :
For each sh in ActiveDocument.Shapes
if sh.fill.foreColor = myColor then
sh.fill.forecolor = newColor
sh.delete
end if
next i
According to the documentation, the delete method requires an index argument representing the index of the shape. I tried entering an index, but it doesn't work.
Does anyone know why this happens?
Tank you very much

Answer 1

Try this and see if the output is what you expect:
Sub Tester()
Dim i As Long
For i = activedocument.Shapes.Count To 1 Step -1
With activedocument.Shapes(i)
Debug.Print "#: " & i, "Name: " & .Name, "Color: " & .Fill.ForeColor
If .Fill.ForeColor = 12874308 Then .Delete '<< works fine for me...
End With
Next i
End Sub
Edit: it's pretty straightforward to demonstrate the problem with using the For Each approach. For example this code only deletes half of the shapes in a document on each run:
Dim shp
For Each shp In ActiveDocument.Shapes
shp.Delete
Next shp