Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("C" & Target.Row)) Is Nothing And Target.Row > 3 Then
Target.Value = Sheets("data").Range("A2")
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=DATA!$A$2:$A$15"
End With
End If
End Sub