Excelで謎のテキストボックスが

Excel

Excelの仕様書を修正してるんだけど、元の文書に謎の空白テキストボックスが大量におかれてる。ざざっと見ただけでも「テキスト 1800」なんてのがあったので、恐らく二千個近くあるんだろう。目障りだし、何の意味も無さそうなのでさくっと消してしまいたいんだけど、一個ずつ消してくと日が暮れちゃいそうだ。なんかいい手は無いかのぅ?

出来た。VBAでテキストボックスを全部消してみた。ちと自信が無いけど

Sub Macro1()
    Dim txtBox As Shape

    For Each txtBox In ActiveSheet.Shapes
        If txtBox.Type = msoTextBox Then
            txtBox.Delete
        End If
    Next
End Sub

で出来たよ。