Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, [H:H]) Is Nothing Then
Target.Value = IIf(Not Target.Value = "þ", "þ", "o")
Target.Offset(0, -4).Interior.ColorIndex = IIf(Target.Value = "þ", 4, xlNone)
Cancel = True
End If
If Not Application.Intersect(Target, [I:I]) Is Nothing Then
Target.Value = IIf(Not Target.Value = "þ", "þ", "o")
Target.Offset(0, -5).Interior.ColorIndex = IIf(Target.Value = "þ", 3, xlNone)
Cancel = True
End If
End Sub