i have a code to del all zero as following:

Sub Del_zero()
findstring = "0"
Set B = Range("L:L").Find(What:=findstring, LookAt:=xlWhole)
While Not (B Is Nothing)
B.EntireRow.Delete
Set B = Range("L:L").Find(What:=findstring, LookAt:=xlWhole)
Wend
End Sub

it's work great.
now , i share with you, and thinking about my problem with keep "text"
above ?

thank you


--
vumian
------------------------------------------------------------------------
vumian's Profile: http://www.excelforum.com/member.php...o&userid=36494
View this thread: http://www.excelforum.com/showthread...hreadid=565629