If 3 >= ActiveCell(1, 5) And ActiveCell(1, 5) < 4 Then
With Range(ActiveCell, ActiveCell(1,6)).Font
.Color = -16776961
.TintAndShade = 0
End With
GoTo Fin
End If
If 4 >= ActiveCell(1, 5) < 5 And ActiveCell(1, 5) Then
Range(ActiveCell, ActiveCell(1, 6)).Select