I want it so that when I check the box for item 1, text appears next to it. I've written a simple macro for that already. The issue is, that I want the text to disappear when the box is unchecked. I have it so that when you check the box the text appears. If you uncheck the box, the text *does not* disappear, and I want it to. [![](https://i.stack.imgur.com/abgQ7.gif)](https://i.stack.imgur.com/abgQ7.gif)
So basically, all I want it to do is to have text appear when I check the box, and the text disappear when I uncheck it. How can I do this. 

```
Sub CheckBox1_Click()
'
' CheckBox1_Click Macro
'

'
Range("E2").Select
ActiveCell.FormulaR1C1 = "Puppy Tears"
Range("E3").Select
ActiveCell.FormulaR1C1 = "Tuna"
Range("E4").Select
End Sub

```