Multiline edit list box

T

Tony C

I am trying to incorporate a list box which aloys me to
make multiple choices from one list.

Help deosn't seem to give any. Can somebody please give
me a steer?

Many thanks
 
B

Bob Phillips

Set the Multiselect option to true. You cane get the selected items like so

Dim i
With ActiveSheet.ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
MsgBox .List(i)
End If
Next i
End With


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Top