Hi Greg,

Run-time error 70

Permission denied.

Can you tell me what the arr items
Apples|Oranges|Peaches|Pears is. Im unaware of the string arr.

Private Sub UserForm_Initialize()

Dim arrItems() As String
Dim bRB As MSForms.ReturnBoolean
arrItems = Split("Apples|Oranges|Peaches|Pears", "|")
lstLookup.List = arrItems
lstLookup.Selected(2) = True
lstLookup_DblClick bRB



End Sub