susan,

Private Sub CheckBox1_Click()
if checkbox1.value = true then range("d30").value = "Close" _
else range("d30").value = ""
end sub

ben


"Susan Hayes" wrote:

Hello

Private Sub CheckBox1_Click()

End Sub


I would like to click on the Check Box feature and have the word "Close" appear in cell D30; however when I reclick the
Check Box and remove the check mark I would like cell D30 blank.

Thank you in advance

Susan