U can trial this. Dave
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Flag As Boolean
If Target.Address = ActiveSheet.Range("O" & 9).Address Then
If Target.Text = "PLACED" Then
If Not Flag Then
ActiveSheet.Cells(9, 12).ClearContents
ActiveSheet.Cells(9, 15).ClearContents
Flag = True
End If
End If
Flag = True
End If
End Sub