Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Cancel As Boolean)
If Not Application.Intersect(R, [F9:G17]) Is Nothing Then
R = IIf(R = "", "X", "")
If R.Column = 6 Then R(1, 2) = IIf(R = "", "X", "")
If R.Column = 7 Then R(1, 0) = IIf(R = "", "X", "")
[E9].Select
End If
End Sub