Hi Greg,

Its still indicates permission denied.

I do believe that you got the code below correct

lstLookup.Selected(2) = True
lstLookup_DblClick bRB

But do I cut out
Dim arrItems() As String
arrItems = Split("Apples|Oranges|Peaches|Pears", "|")

Either combination I still get permission denied.

Furthermore, in your 1st reply you added
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim lngIndex As Long
For lngIndex = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(lngIndex) Then
TextBox1.Text = ListBox1.List(lngIndex)
Exit For
End If
Next lngIndex
End Sub


Does this mean that I need to add that to my listbox code to make this work?

Sorry that I am a bit of a pain as this coding for initialization is new to me!

Steve