If Not Intersect(Target, Range("H9")) Is Nothing Then
        With Intersect(Target, Range("H9"))
            .Font.Color = RGB(0, 255, 0)
            .Offset(0, -2).Font.Color = RGB(0, 255, 0)
        End With
        Cancel = True
    End If