Advance programatically to the next item in a listbox

[svjack9]

I have a form with a listbox that displays items which need some kind of action. Once that action is completed the result is pasted to a cell in an underlying worksheet. I would like the listbox to automatically advance to the next item in its list instead of my having to physically click on the next item. Is there a way to do that?

 

[Yongle]

Try this method

    Dim x As Long
    For x = 0 To ListBox1.ListCount - 2
      If ListBox1.Selected(x) = True Then
        ListBox1.Selected(x + 1) = True
        Exit For
      End If
   Next x

 

[RoryA]

If it's a single select listbox, you can just increment the Listindex property by 1.