Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range("A1:X1000").Interior.ColorIndex = xlNone
If Intersect(Target, Range("P1:P1000")) Is Nothing Then
Range("P4").Value = ""
Else
Range("P4").Value = Range("X" & Target.Row).Value
Range("A" & Target.Row & ":X" & Target.Row).Interior.ColorIndex = 40
End If
Cancel = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1:X1000").Interior.ColorIndex = xlNone
Range("P4").Value = ""
End Sub