Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("H:H")) Is Nothing Then
Target.Offset(0, -7).Interior.ColorIndex = 4
Target.Offset(0, -6).Interior.ColorIndex = 4
Cancel = True
End If
If Not Application.Intersect(Target, Range("I:I")) Is Nothing Then
Target = Date
Cancel = True
End If
If Not Application.Intersect(Target, Range("J:J")) Is Nothing Then
Target.Offset(0, -9).Interior.ColorIndex = 15
Target.Offset(0, -8).Interior.ColorIndex = 15
Cancel = True
End If
End Sub