This will remove the entire row when the cell being checked is less than zero
until the cell is found to be empty. Is this what you want or do you just
want the row to be blanked?

Range("D1").Select
Do While Not IsEmpty(ActiveCell)
If ActiveCell < 0 Then
Selection.EntireRow.Delete
End If
ActiveCell.Offset(1, 0).Select
Loop

"Kel" wrote:

Hi all and thanx again for sharing your great knowledge with others,

Im looking to do the following it should be as a macro in VB on a sheet
which is protected and with a password,

if say AND(D1 is less then zero (0) delete contents from entire row,
D2 less then zero delete contents from entire row, and same on D3 and so on,

so the macro will search the entire sheet in column D, if cell in D column
is less then 0 delete contents from entire row.

Thanx again