if cell contents are equal to "no" then delete contents in other cell

I am working in macros trying to do the following:

In a table with two columns "Status" and "Value"
If the Status column has a "no" I want to delete the contents in the value column.

this is what i have so far, but it does not appear to be working:

Dim cell As Range
For Each cell In Range("Table1[[#Headers],[Status]]")
If cell.Value = "no" Then
Range("Table1[[#Headers],[Value]]").Select.ClearContents
End If
Next cell