Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("a1:d50")) Is Nothing Then
If ActiveCell.Value <> "X" Then
Target.Value = Target.Value
Else
ActiveCell.ClearContents
End If
End If
Cancel = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("a1:d50")) Is Nothing Then ActiveCell.Value = ActiveCell.Value
End Sub