Excel の Drop Down を削除

'ドロップダウンの削除。
Sub IMAGE_DELETE_DropDown()

Dim MyOb As Object
With ActiveSheet

'とりあえず図形はすべて対象にしておいて…。
For Each MyOb In .Shapes

'Drop Down のみを処理対象とする。
'(この if がないと、全 Shape が対象。)
If MyOb.Type = 8 Then

'図形を削除する。
MyOb.Delete

End If

Next

End With
Set MyR = Nothing

End Sub

http://hinden.at.webry.info/201105/article_25.html