Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim strRange As String
strRange = Target.Cells.Address
If Not Target.Cells.Value = "O" Then
Range(strRange).Interior.Color = vbYellow
Range(strRange).Replace "*", "O"
Cells(Target.Row, 9).Value = Cells(Target.Row, 9).Value + Cells(2, Target.Column).Value
Cells(Target.Row, 9).Interior.Color = vbYellow
Cells(Target.Row, 11).Value = Cells(Target.Row, 11).Value + 1
Cells(Target.Row, 12).Value = Cells(Target.Row, 12).Value + Cells(2, Target.Column).Value
End If
End Sub