I have extracted the basic code that is making an inexplicable error.

It looks like this:

Dim strWhat As String
Private Sub Command1_Click()
For t = 1 To List1.ListCount
MsgBox (List1.List(t - 1))
strWhat = Listl.List(t - 1)
Next t
End Sub

Private Sub Form_Load()
List1.AddItem "Hello"
End Sub


put that on a form with a command button and a listbox
and run it. see if you get 424 object required error

I do.

Please let me know what this is.
Thanks
Wengang