テキストボックスを消すVBA

質問

ボタンを押すことでテキストボックスが消えるようにしたいのですが、
ボタンは、２つ　「ＯＮとＯＦＦ」　１～３のＳｈｅｅｔにあるテキストボックスをＳｈｅｅｔ５に配置した「ＯＮとＯＦＦ」のボタンで操作するようにしたいのですがよろしくお願いします。

回答No.2

batu1

もしも、画面上で見えたり見えなくするというのではなく、本当に消したい場合は以下のようにしみてください。
（多分質問の意図は前述の方のやり方が回答になっていると思いましたが）

－－ＯＮの処理－－
Sub ボタン1_Click()
　Sheets("Sheet1").Select
　ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", 　　　　 　　Link:=False,・・・・・その他設定)
　（シート２・シート３も同様に）
End Sub

－－ＯＦＦの処理－－
Sub ボタン2_Click()
　Sheets("Sheet1").Shapes("TextBox1").Delete
　Sheets("Sheet2").Shapes("TextBox1").Delete
　Sheets("Sheet3").Shapes("TextBox1").Delete
End Sub

お礼

すみません！お礼のほうに書くべきでした。
とりあえず、うまくいきそうなのでがんばってみます。

補足

batu1さん！ありがとうございます。
早速やってみましたが、
ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1",Link:=False,・・・・・その他設定)
がエラーになってしまいました。

ＯＦＦはうまくいました。