Double click on cell and enter data

Hi Ipratt,

Double click will put the cell in editing mode, I would suggest you to use selection change event :-

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

i = Selection.Address
    If i = "$O$20" Or i = "$O$21" Or i = "$O$22" Or i = "$O$23" Then
    ActiveCell.Copy Range("k10")
    End If
End Sub

Regards,
DILIPandey

<click on below 'star' if this helps>

Hi try this

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rng As Range
Set rng = Range("o20:o23")
If Not Intersect(Target, rng) Is Nothing Then
Cancel = True
Range("k10") = Date
End If
Cancel = False
End Sub

in a module of worksheet