Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Application.Intersect(Target, Range("bk11:fl2000")) Is Nothing Then Exit Sub
If Application.IsFormula(Target) Then Exit Sub
Target.Value = IIf(UCase(Target) = "X", "", "X")
End Sub