Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Modified 8/16/2019 3:07:17 AM EDT
If Target.Column = 1 And Target.Value <> "" Then
Cancel = True
With Target.Interior
Select Case Target.Value
Case 2
.ColorIndex = 5
Case 5
.ColorIndex = 3
End Select
End With
End If
End Sub