Select and SelectIndex method of HTMLListBox are throwing errors if the selected value is not visible on screen. FindItem returns right index however if that index is not visible on screen SelectIndex is failing.

Below is the code snippet.

Any help would be highly appreciated.

iIndex = HTMLListBox("Name=HTMLList1").FindItem "Item not visible"
If iIndex > 0 Then
HTMLListBox("Name=HTMLlist1").SelectIndex (iIndex), tpKeyCtrl
End If

HTMLListBox("Name=HTMLlist1").Select "Item not visible"

is also not working.