I have a worksheet on which there are data validation lists in
B7,B11,B15, and B23. When the user selects "Report" in any of these, I
want the cell in column D on the same row to return "N/A". Below is my
code. The problem is, when it executes the program gets locked in
calculation mode. Any suggestions?

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B7").Value = "Report" Then
Range("D7").Value = "N/A"

End If

If Range("B11").Value = "Report" Then
Range("D11").Value = "N/A"

End If

If Range("B15").Value = "Report" Then
Range("D15").Value = "N/A"

End If

If Range("B23").Value = "Report" Then
Range("D23").Value = "N/A"

End If




End Sub