Hi Frank

For Each cell In Intersect(ActiveSheet.UsedRange, Range
("B:B"))
If IsError(cell.Value) Then
Rows(cell.Row).Delete Shift:=xlUp
'go back one element, e.g. cell.index = cell.index-
1
End If
Next cell

I'll try to solve this in another way, just wonder whether
how one can do this in this type of setup


-----Original Message-----
Hi
post your existing code. General idea:
store the last value in a tempory variable

-----Original Message-----
Hi all

I want to use a "for each element in group" construct.
How
can I go back one element during excecution,
e.g. if case1 then "go back one element".

Thanks for your help.
.

.