one way, perhaps...
Sub Delete_SelectiveRows()
Dim vCriteria, vData, v, s1$, n&, j&
vCriteria = Split(Range("A1").Value, ",")
vData = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
For n = UBound(vData) To LBound(vData) Step -1
For j = LBound(vCriteria) To UBound(vCriteria)
If InStr(1, vData(n, 1), vCriteria(j)) 0 Then
If Not InStr(1, s1, "0" & n + 1) 0 Then
s1 = s1 & "," & n + 1
End If
End If
Next 'j
Next 'n
For Each v In Split(Mid(s1, 2), ",")
Rows(v).Delete
Next 'v
End Sub
--
Garry
Free usenet access at
http://www.eternal-september.org
Classic
VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.
vb.general.discussion