thanks, works very well
Code:For i = 0 To List1.ListCount - 1 spltme = List1.List(i) 'strng = what you are searching for... Compairme = InStr(spltme, strng) 'if your string is found... If Compairme > 0 Then List1.Selected(i) = True Exit For End If Next i




Reply With Quote