lcSearch = "findthis" >With thisform.list1 > For ji = 1 To .ListCount > If .List(ji)=lcSearch > .ListIndex = ji > Exit > EndIf > EndFor >EndWithIf the RowSourceType is an array or a alias or fields, you can go directly to the RowSource and find the value which will reflect in the listbox. e.g., if RowSourceType is an array, e.g., thisform.aSource
With thisform > .list1.ListIndex = Ceiling(AScan(.aSource, lcSearch)/ALen(.aSource,2)) >EndWith