 
  
   
  
  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 
  
   
  
   
  
   
  
   
  
  