Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b4:b12")) Is Nothing Then
If Target.Value = "Non Applicable" Then
Target.Offset(, 1).Resize(, 4).Interior.ColorIndex = 2
Else
Target.Offset(, 1).Resize(, 4).Interior.ColorIndex = xlNone
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal c As Range)
If c.Interior.ColorIndex = 2 Then c.End(xlToLeft).Select
End Sub