Hi Lawrence,

If the row of interest is not deleted, it is probable that your condition:

If ((Selection.Value < "") And (sheetmemo(i) = "")) Then

is not being satisfied.

Try adding a break point and test the condition's value.


---
Regards,
Norman



wrote in message
ps.com...
I thought that as well, but nothing happens. The contents of the array
is definately 8 as an integer (different numbers, nothing happens
either).

And yes the code does execute as I have used break points etc but no
errors and no deleting actually occurs...grrrr

This is a bigger section of the code if it helps:

If ((Selection.Value < "") And (sheetmemo(i) = "")) Then
Rows(sheetcell(i)).Delete
sheetmemo(i) = Selection.Value
ActiveCell.Offset(0, -5).Select
sheetarray(i) = Selection.Value
sheetcell(i) = ActiveCell.Row
ActiveCell.Offset(1, 0).Select
ignore = 1
Exit For
End If

Thanks