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

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

- Manges

--
Message posted from http://www.ExcelForum.com

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


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

- Mangesh


---
Message posted from http://www.ExcelForum.com/

.

Date

Range("A1").Value = Date
--
Regards,
Tom Ogilvy


"Dan" wrote in message
...
What would i change "now()" to if i do not want the time?


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

- Mangesh


---
Message posted from http://www.ExcelForum.com/

.