type mismatch on cell contents. Cell.clearcontents

Hi there,

I have a simple formula procedure which is linked to a button. When the button is clicked, nothing happens even though ranges have values.

Dim cell As Object
For Each cell In Worksheets("test").Range("F2:J40")
If cell.Value <> 0 Then cell.ClearContents 
Next cell
End Sub

Columns have values, but this button doesn't really clear them.

Is anyone able to assist?

Thanks