Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("f5:h400")) Is Nothing Then Exit Sub
Dim n As Byte
n = Target.Column - 5
Target(1, 2 - n).Resize(, 3) = Chr(168)
Target = Chr(254)
Target(1, -3 - n).Select
Target(1, -n).Font.Color = Choose(n, 5287936, 49407, 255)
End Sub