list box

[reddcannon]

I have a list box, and when the form is closed and reopened, I would like it to automatically return to the first item on the list. But it goes back to the last item chose. is there a way to make it start at the first item

 

[tweedle]

Set the ListIndex to 0

ListBox1.ListIndex = 0

When that is done...depends on what this means:

when the form is closed and reopened

 

[reddcannon]

My sincere apologies, I meant to say combo box and open and close means, when I close the spreadsheet and then reopen it, I want the combo box (sorry not list box) to start at the first item on the list (since it is the most used)

 

[tweedle]

It's the same method/property.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
    If Sheet1.ListBox1.ListCount > 0 Then
        Sheet1.ListBox1.ListIndex = 0
    End If
    
    If Sheet1.ComboBox1.ListCount > 0 Then
        [COLOR=royalblue]Sheet1.ComboBox1.ListIndex = 0
[/COLOR]    End If
Application.ScreenUpdating = True
End Sub