Powerpointファイルを開いて、
ホーム-配置-オブジェクトの選択と表示　でスライドのShapeオブジェクト一覧が表示されます。（添付画像参照）。このスライドから黄色い蛍光ペンで塗った、”コンテンツプレースホルダー２”の
Shapeオブジェクトを削除しようとして、下記のPowerpointVBAを実行しましたが、何も削除されません。コードをどう直せば動きますか？　わかる方教えてください。

--<start of code>----
Sub delete()
Dim s As Shape 'sはshapeオブジェクトを入れる変数
Dim c As Collection 'cはコレクション
Dim start_slide As Integer 'start_slideはスライド番号1を入れる定数
Dim i As Integer 'iはスライド番号を入れる変数

start_slide = 1
For i = start_slide To ActivePresentation.Slides.Count
'If i = 254 Then
' GoTo continue
'End If
Set c = New Collection
For Each s In ActivePresentation.Slides(i).Shapes '変数sにアクティブスライド番号のすべてのshapeオブジェクトを入れる。
c.Add s
Next
For Each s In c
If InStr(s.Title, "コンテンツ") > 0 Then s.delete '★ここが重要！
Next
'continue:
Next
'MsgBox "the process is finished."
End Sub
--<end of code>----