Setting all list boxes ListIndex = 0

[fmascioni]

Hello,

I'm trying to sett all list boxes to the first item with the following code:

For Each Lbox In Me.Controls
If TypeOf Lbox Is MSForms.ListBox Then Lbox.ListIndex = 0
Next Lbox

Getting the error "could not set listindex. Invalid property." Not sure why since Me.listboxname.ListIndex=0 works fine alone.

 

[Andrew Poulsom]

Your code worked for me in Excel 2003 with ListBoxes on a UserForm.

 

[fmascioni]

Hmmm,

I'm running Excel 2003 also. I must be missing something simple...

 

[Andrew Poulsom]

I can reproduce the error if the ListBox is empty.

 

[fmascioni]

My listbox is not empty however the first item is set to "". Ultimately what I'm trying to accomplish is make the default listbox item be empty upon initialization and upon the user hitting a "Clear All" button. Maybe there is an easier way?

 

[Andrew Poulsom]

Why don't you set the ListIndex to -1 (nothing selected).

 

[fmascioni]

Yes, thats what I had originally but the individual I'm writing this for believes that his users may get confused thinking that if an item is showing it means it is selected (boxes are dimensioned to show only one row). If nothing is selected he wants the listbox to be blank.

 

[Andrew Poulsom]

Why don't you use a ComboBox? The edit box will be empty if nothing is selected.

 

[fmascioni]

Never used one before - might just do the trick. Thanks!