I have a short sub evaluating cell contents. If it is diffrent fro
"OT" then delete entire row. It works fine but I need to make it sto
if cell is empty

Sub Julie()
Cells(6, 6).Select
Do
If ActiveCell < "OT" Then
Selection.EntireRow.Delete
Else: ActiveCell.Offset(1, 0).Select
End If
Loop Until ActiveCell = ""

End Sub

thank

--
halem
-----------------------------------------------------------------------
halem2's Profile: http://www.excelforum.com/member.php...nfo&userid=993
View this thread: http://www.excelforum.com/showthread.php?threadid=26697