シート上に配置したコントロール（ボタンなど）の名前を調べたり変更したりするには
どうすればよいのでしょうか

シートにたくさん画像が貼り付けてあるので、それらを一斉に消去するために

Public Sub pics_delete(sname As String)
Dim delShape As Shape
For Each delShape In Worksheets(sname).Shapes
If (delShape.Name <> "btnDelete") Then
'delShape.name = btnDelete
delShape.Delete
End If
Next
End Sub

こんな感じのコードを書いているのですが、配置したボタンの名前をワークシート上で
参照／変更することが出来ません
仕方ないので、一旦全てのシェイプが消えたあと再度ボタンを配置して、上記プログラムの
コメント部分を切り替えています

プロパティを見ても、オブジェクトとしてワークシートが選択されてしまうようで、ボタンを
選択した状態でプロパティを見てもボタンの情報が参照できません