テキストボックスの文字を一括して削除するには

質問

エクセルで沢山のテキストボックスの文字を一括して削除するマクロとして以下を実行するとエラーになってしまいます。
(テキストボックス自体は残す)

Sub sakujo()
ActiveSheet.TextBoxes.Select
Selection.Characters.Text = ""
End Sub

どこがおかしいのでしょう？

回答No.1

ja7awu · ベストアンサー

それでは、ちょっと無理ね。
こんな感じでどう。

Sub test()
Dim con As Integer
For con = 1 To TextBoxes.Count
　　ActiveSheet.TextBoxes(con).Characters.Text = ""
Next
End Sub

お礼

ありがとうございます。
が、うまくいきませんでした。

For con = 1 To TextBoxes.Count 　で「実行時エラー424　オブジェクトが必要です」になりました。

補足

以下でうまくいきました。

Sub sakujo()
Dim con As Integer
For con = 1 To ActiveSheet.TextBoxes.Count
ActiveSheet.TextBoxes(con).Characters.Text = ""
Next con
End Sub