If Then VBA Script

[lilwillis3000]

Please help. I've been trying to come up with a VBA Script that says this

If column D equals anything but ***NAME NOT LISTED***, Then return "N/A" in that same row in column G.

I already have Data Validation to restrict editing in column G if column D is not ***NAME NOT LISTED***

 

[lilwillis3000]

How about this?

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim changedCell As Range
    Dim intersectRange As Range

    ' Define the range of column D from D30 downwards
    Set intersectRange = Intersect(Target, Me.Range("D30:D" & Me.Rows.Count))

    If Not intersectRange Is Nothing Then
        Application.EnableEvents = False
        For Each changedCell In intersectRange
            If changedCell.Value = "" Then ' Check if the value is cleared out
                Me.Cells(changedCell.Row, "G").ClearContents ' Clear content in column G
            ElseIf changedCell.Value <> "***NAME NOT LISTED***" Then
                Me.Cells(changedCell.Row, "G").Value = "N/A"
            Else
                Me.Cells(changedCell.Row, "G").ClearContents
            End If
        Next changedCell
        Application.EnableEvents = True
    End If
End Sub

This worked perfectly! Thanks for the assistance!