Clear Cell Contents Based On Criteria

Hi,

You can do it with this

Private Sub Worksheet_change(Byval target as range)
   if target.column = 13 and Range("C" & target.row) = "Yes" then
       Application.EnableEvents = False
       Range("C" & target.Row).ClearContents
       Application.EnableEvents = True
   end if
end sub