
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:A20")) Is Nothing Then
If Target = "x" Then
Target = ""
ElseIf Target = "" Then
Target = "x"
End If
Cancel = True
End If
End Sub
|
