If Cell value(s) in a range = "N/A" enter text "N/A" in the cell to the immediate left and add formatting

[rdoulaghsingh]

I have a range of cells C3:C13 and C18:C28 with dropdown lists. What I'm trying to accomplish is...if the user drops down a value of "N/A", then the cell to immediate left is locked from being edited and the cell shaded. This is what I have so far in the worksheet_change event, but it doesn't seem to work.

Application.EnableEvents = False

If Target.Range("C3:C13") Or Target.Range ("C18:C28") Then
        If Target = "N/A" Then
            Target(0,1) = "(N/A)"
            With Selection.Interior
                .Pattern = xlLightDown
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With
        Else
            Exit Sub
        End If
    End If

Application.EnableEvents = True

Please help!

 

[AlphaFrog]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then
        If Not Intersect(Target, Range("C3:C13,C18:C28")) Is Nothing Then
            Application.EnableEvents = False
            If Target.Value = "N/A" Then
                With Target(1, 0)
                    .Value = "(N/A)"
                    With .Interior
                        .Pattern = xlLightDown
                        .TintAndShade = 0
                        .PatternTintAndShade = 0
                    End With
                End With
            Else
                With Target(1, 0)
                    .Value = ""
                    With .Interior
                        .Pattern = xlPatternNone
                        .TintAndShade = 0
                        .PatternTintAndShade = 0
                    End With
                End With
            End If
            Application.EnableEvents = True
        End If
    End If
End Sub

 

[rdoulaghsingh]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then
        If Not Intersect(Target, Range("C3:C13,C18:C28")) Is Nothing Then
            Application.EnableEvents = False
            If Target.Value = "N/A" Then
                With Target(1, 0)
                    .Value = "(N/A)"
                    With .Interior
                        .Pattern = xlLightDown
                        .TintAndShade = 0
                        .PatternTintAndShade = 0
                    End With
                End With
            Else
                With Target(1, 0)
                    .Value = ""
                    With .Interior
                        .Pattern = xlPatternNone
                        .TintAndShade = 0
                        .PatternTintAndShade = 0
                    End With
                End With
            End If
            Application.EnableEvents = True
        End If
    End If
End Sub

This worked beautifully @AlphaFrog. Thank you so much!!! Is there any way to disable the cell so the user will not be able to click in it or enter values or trigger an event tied to the cell? Is there a different event that I can use to change the values of the cell if someone copies the value of N/A down Column Range?