Hi
check in the VBA editor if the references are set correctly ('Tools -
References')

--
Regards
Frank Kabel
Frankfurt, Germany

"Manu Palao" schrieb im
Newsbeitrag ...

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