Monik

1) has i been initialised to 1 somewhere
2) change the line
Rows("i:i").Selec
t
Rows(i & ":" & i).Selec

Ton

----- monika wrote: ----

I am checking if a particular cell is empty then I ca
delete the entir
row.
This particular code is not working
While Cells(i, 3) = "
Rows("i:i").Selec
Selection.Delete Shift:=xlU
lastCellNum = lastCellNum -
i = i +
Wen
Thank
monik