Double-click event In Thisworkbook Module

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, _
ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" And Target.Value < "" Then
Target.Value = Format(Now, "mm/dd/yyyy hh:mm:ss")
End If
Cancel = True
End Sub


Gord Dibben MS Excel MVP

On Fri, 2 Apr 2010 08:23:02 -0700, Howard
wrote:

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?