Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = 0
If Not Intersect(Target, Range("K8:K100")) Is Nothing Then
Target.Value = IIf(Target.Value = "", "X", "")
End If
Application.ScreenUpdating = 1
End Sub