Listbox Scrollbar

[fmascioni]

Hello,

Does anyone know of a way using code to force a userform listbox scrollbar to scroll to the top of the list?

(setting the listindex to 0 is close but not exactly what I want)

Thanks

 

[Sahak]

Hi

Try with code

Private Sub UserForm_Initialize()
    ListBox1.ListIndex = 0
End Sub

 

[fmascioni]

Yes, seems to work except for one problem now - when my listbox is empty I get an error message. I'm trying to add at least one "" item to get around that now..Hope it works.

Thanks!

 

[Sahak]

is this works ?

Private Sub UserForm_Initialize()
    If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
End Sub