Private Sub CheckBox1_Change()
If Me.CheckBox1.Value = False Then Me.CheckBox1.Caption = "Uncheked"
If Me.CheckBox1.Value = True Then Me.CheckBox1.Caption = "Checked"
MsgBox Me.CheckBox1.Caption, vbInformation + vbOKOnly
End Sub
Private Sub CheckBox1_Click()
' rem if date/time of open
' else date/time of click
If Me.CheckBox1.Value = True Then Range("a1").Formula = "=Now()"
If Me.CheckBox1.Value = True Then Range("b2").Value = Range("a1").Value
End Sub