Thanks to everyone who answered. We really appreciate you folks.
--
Howard


"JLGWhiz" wrote:

See if this works for you. I used Range("B2"), but you can change that to
whatever you want.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing Then
Target.Value = Now
End If
End Sub




"Howard" wrote in message
...
Is there any way to put code in the WorkBook Module so that when a person
clicks on a cell (and only when they click on this cell) on any sheet, it
would put in the current time and date?
--
Howard


.