Run-time-error 1004 "ListIndex method of listbox class failed"
 

I am getting Run-time-error 1004 "ListIndex method of listbox
class failed"

It stops at
ListIndex = RowNo ' Error
using excel 97. It was written in excel 2000 and works fine in 2007. I
was testing it with 97 and it I get this error.
I changed From
.ListIndex = RowNo
to
For .ListIndex = 1
Still fails. Is this one of those commands that did not exist in this
for in 97 version.
_________________________________________________

Sub aSlideShow()
Worksheets("Sheet2").Select
With Worksheets("Sheet2").Shapes("List Box 1").OLEFormat.Object
Sheets("Sheet4").Range("AH20").Value = .ListCount
AddressNo = "initial"
'MsgBox .ListCount
For RowNo = 1 To .ListCount

..ListIndex = RowNo ' Error

AddressNo = .List(.ListIndex)
If AddressNo = "" Or AddressNo = " " Then 'Detect blank
.ListIndex = 1
Call ListBoxAuto
Exit Sub
End If
Application.Wait (Now + TimeValue("0:00:01") / 2)
OpenForms = DoEvents
Call ListBoxAuto
'On Error GoTo Finis
Next RowNo
End With
Finis:
End Sub

Run-time-error 1004 "ListIndex method of listbox class failed"
 

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