I am checking if a particular cell is empty then I can
delete the entire
row..

This particular code is not working:
While Cells(i, 3) = ""
Rows("i:i").Select
Selection.Delete Shift:=xlUp
lastCellNum = lastCellNum - 1
i = i + 1
Wend

Thanks
monika