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