Hi Greg,

The only way I can think of to do what you want is with an event driven
macro. I have prepared 3 different ones for you to try.

Open a new workbook and right click on the worksheet tab name. Select View
Code and the macro editor will open.

Copy ONE ONLY of the 3 macros below and paste into the large white area of
the editor.

Close the macro editor by clicking the X with the red background far top
right. (Ensure that you click the top X because the one below it only closes
the specific macro sheet.)

Save the workbook.

Double Click any cell on the worksheet and the relevant data will be entered
in the cell.

The macros can be modified to run only when specific Rows, Columns or Ranges
are Double Clicked. If you want this then get back to me but I suggest that
you develop your worksheet first so that you will then know what ranges you
want it restricted to.

The line in the macro with the number formatting can be modified to any
valid number format. Alternatively, you can delete the line and format the
required cells on the worksheet.

The macro only runs with the worksheet that you right clicked to open the
macro editor. If you want to try the other macros, select another worksheet
and right click the tab name and do as above.

Macro 1: (Copy from Private Sub to End Sub)

Private Sub Worksheet_BeforeDoubleClick _
   (ByVal Target As Range, Cancel As Boolean)

Cancel = True   'Cancels edit mode of the cell

'Format the cell to display time and date
Target.NumberFormat = "hh:mm ddd dd mmm yyyy"

'Assign current time and date to the cell
Target.Value = Now()

End Sub

Macro 2:-

Private Sub Worksheet_BeforeDoubleClick _
   (ByVal Target As Range, Cancel As Boolean)

Cancel = True   'Cancels edit mode of the cell

'Format the cell to display time and date
Target.NumberFormat = "[hh]:mm"

'Assign current time and date to the cell
Target.Value = Time

End Sub

Macro 3:-

Private Sub Worksheet_BeforeDoubleClick _
   (ByVal Target As Range, Cancel As Boolean)

Cancel = True   'Cancels edit mode of the cell

'Format the cell to display time and date
Target.NumberFormat = "dd mmm yyyy"

'Assign current time and date to the cell
Target.Value = Date

End Sub