OOOPS. Here it si in plain text.Thanks!


While ActiveCell.Value < ""
ActiveSheet.[b2].Offset(saved_pos, 0).Range("a1").Select
blnk = Excel.WorksheetFunction.Search("", ActiveCell.Value, 1)
tmp = VBA.Strings.Mid(ActiveCell.Value, 1, blank)
While ActiveCell.Value < ""
ActiveCell.Offset(1, 0).Range("a1").Select
blnk2 = Excel.WorksheetFunction.Search("", ActiveCell.Value, 1)
tmp2 = VBA.Strings.Mid(ActiveCell.Value, 1, blnk2)
If tmp2 = tmp Then
Selection.EntireRow.Delete Shift:=xlUp
End If
Wend
saved_pos = saved_pos + 1
Wend


--
Manu Palao
------------------------------------------------------------------------
Manu Palao's Profile: http://www.excelforum.com/member.php...o&userid=16205
View this thread: http://www.excelforum.com/showthread...hreadid=276626