All,

I thought I had this, but....
What I need is to remove the data in cell A1 if in cell D1 it
states;"Would you like to add any comments?"...then move to the next
row/cell until cell A(whatever) contains no data.

Sub Test()
Dim Cell As Range
For Each Cell In Range("D:D")
If Range("D1") = "Would you like to add any comments?" Then
Range("A1") = ""
Next
End Sub


Any help is appreciated

Hans