Problems with functions

[Manu Palao]

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
Wen

 

[Frank Kabel]

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