What type of listbox is it?

The code shouldn't really work in any version of Excel, ListCount is a
count of the items in a listbox.

The index of a listbox is zero-based, eg item 1 - listindex = 0, item
2 - listindex etc...

So there is no item with the index equal to the ListCount, the last
item's index is list count minus one.


Try this:

For RowNo = 0 To .ListCount-1

or

For RowNo = 1 To .ListCount
....

..ListInde = RowNo-1