remove cell content based on another cells text

Maybe:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(15)) Is Nothing Then
    Cells(Target.Row, "L").ClearContents
End If
End Sub

Originally Posted by JOHN H. DAVIS

Maybe:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(15)) Is Nothing Then
    Cells(Target.Row, "L").ClearContents
End If
End Sub

Hi John,

I tried using the basis of your code you gave me the other week where another cells content removes another but for some reason this code is not working for these cells. I don't understand why it does not work :S I have been given another macro where you have to run it to remove but there would be room for error if employees do not run it as i was hoping it could be done automatically like the code from last week