putting in todays date

[Dan]

hello,

I am looking for coding that will allow me to put in
todays date into a cell when a checkbox is checked. Any
help would be appreciated.

Thanks,
Dan

 

[mangesh_yadav]

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Range("A1").Value = Now()
Else
Range("A1").Value = ""
End If
End Sub

- Manges

 

[Dan]

What would i change "now()" to if i do not want the time?

 

[Tom Ogilvy]

Date

Range("A1").Value = Date