Try with Checkbox !!
Private Sub CheckBox1_Click()
With ActiveSheet.Shapes("TextBox1")
.Visible = Not .Visible
End With
End Sub