eliminare buttom (pulsante) con macro

Sub Macro1()

    ActiveSheet.Shapes("Button 3443").Select
    Selection.Delete

End Sub

Sub Macro1()
    ActiveSheet.Shapes("Pulsante 2").Select
    Selection.Delete
End Sub

Sub Macro1()
    ActiveSheet.Shapes("Pulsante 2").Delete     
End Sub

For Each oShp In wsDest.Shapes  '<<< elimina pulsanti
      oShp.Delete
   Next

 For Each oShp In wsDest.Shapes '<<< elimina tutti shapes pulsante / no elimina logo (immagine)
    oShp.Select
    If oShp.AutoShapeType = msoShapeBevel Then
    If InStr(1, LCase(oShp.Name), "Immagine 1") = 1 Then oShp.Delete
    End If
    Next