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