I don't have the code written out
So, how can we help you to fix your code ?
A starting point:
For r = lngLastRow To lngFirstRow Step -1
If Trim(yourWorksheetObject.Cells(r, 2)) = "" Then
yourWorksheetObject.Cells(r, 2).EntireRow.Delete
End If
Next
Hope This Helps, PH.
FAQ219-2884
FAQ181-2886