Change your clear contents to .value=""

"Curt" wrote:

trying to have when an entry in row column (L) is made
clear contents of same row column (P)
have following but doesn't clear as wanted
thanks

Dim lr As Long
lr = Cells(Rows.Count, 200).End(xlUp).row
If Not Intersect(Target, range("L200:L" & lr)) Is Nothing Then
If IsNumeric(Target.Value) And Target.Value = 10 Then
Sheets("data").range("P" & Target.row).ClearContents
End If
End If