For i = 1 To Cells(Rows.Count,"E").End(xlUp).Row
If Cells(i,"E").Value < "" Then
Cells(i,"D").ClearContents
End If
Next i

--
HTH

Bob Phillips

wrote in message
ups.com...
I need to see if anyone can help me. I have data in cell E5 and I need
to delete the data in cell D7. I need a formula to check to see if
there is data in the cells in column E and if so, then delete the data
in column D.

Thanks,

Tom