[RESOLVED] Determine selected in form control listbox

I have a form control (not ActiveX) listbox on a sheet that has 'Selection Type' set to 'Extend'. How do I determine which entries are selected?

try like

Code:

---

Dim s As Worksheet, lb As ListBox
Set s = Sheets(1)
Set lb = s.Shapes("list box 3").OLEFormat.Object
For i = 1 To lb.ListCount
  If lb.Selected(i) Then MsgBox lb.List(i)
Next

---

Thanks.