Private Sub CheckBox1_Click()

if CheckBox1.Value Then
Range("D30").Value = "Close"
Else
Range("D30").Value = ""
End If

End Sub



--

HTH

RP
(remove nothere from the email address if mailing direct)


"Susan Hayes" wrote in message
...
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