' textbox.bas 2014/10/21
' テキストボックスで指定された文字と一致する場合、テキストボックスを削除
Sub textbox_delete()
Dim str As String
Dim n As Integer
n = 0
' 文字列を入力
str = InputBox("削除対象にするテキストボックスの文字列を入力してください。", "テキストボックスの削除条件", "熊")
For Each myshape In ActiveSheet.TextBoxes
' strと一致するテキストボックスであるか確認する
If myshape.Text = str Then
myshape.Delete
n = n + 1
End If
Next
MsgBox n & "個のテキストボックスを削除しました"
End Sub