hi
try this
do while not isempty(activecell)
or

-----Original Message-----

I have a short sub evaluating cell contents. If it is
diffrent from
"OT" then delete entire row. It works fine but I need to
make it stop
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

thanks


--
halem2
----------------------------------------------------------
--------------
halem2's Profile: http://www.excelforum.com/member.php?
action=getinfo&userid=9930
View this thread:
http://www.excelforum.com/showthread...hreadid=266973

.