Sub Macro5()
'
' Macro5 Macro
' Macro recorded 11/15/2004 by RXVP
'
'
Dim t As Integer
Dim b As Boolean
b = True
While b
t = t + 1
If Range("a" & t).Value = "" Then
b = False
Else
If (Range("h" & t).Value = "0" And Range("i" & t).Value = "0"
Then
Rows(t & ":" & t).Select
Selection.Delete Shift:=xlUp
End If
End If
Wend
End Su
--
anilsolipura
-----------------------------------------------------------------------
anilsolipuram's Profile:
http://www.excelforum.com/member.php...fo&userid=1627
View this thread:
http://www.excelforum.com/showthread.php?threadid=27872