right click sheet tabview codeinsert thissave
now when you select cell a2 the date will be today

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address < "$A$2" Then Exit Sub
Target = Date
End Sub

--
Don Guillett
SalesAid Software

"gall" wrote in message
...
I would like to figure out how to get the current date into a cell when a
user clicks the cell.

Thanks,
Tricia Gall