Listbox- 1st item is not getting highlighted

[megha_gharote]

Hi All,
i have following code. When user form is shown list box has focus on "item1" and not on "Select All"

Private Sub UserForm_Initialize()
   Dim vList
   vList = Array("item1", "item2", "item3")
   With Me.ListBox1
      .List = vList
     ' add "Select all" as first item
      .AddItem "Select All", 0
   End With
   ListBox1.Selected(0) = True
   
End Sub

anybody any idea on this

thanks
megha

[cytop]

Pasted your code into a userform with a listbox - works fine in isolation.