You have to set the MultiSelect property to fmMultiSelectMulti

--
HTH

Bob Phillips

"LilyDog7" wrote in message
...
thanks that did work! now using the control toolbox list form, is there a
way i can highlight multiple items from a listbox and have them listed in
cell M!, M2 M3 etc...? right now the way it is set up, i can only
highlight 1
item at atime.

"Bob Phillips" wrote:

Dim i As Long
Dim j As Long
With Me.ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
j = j + 1
ActiveSheet.Range("M" & j).Value = .List(i)
End If
Next i
End With


--
HTH

Bob Phillips

"LilyDog7" wrote in message
...
I have created a list box using the multi select function. What I
would
like
to do is be able to highlight multiple items(not in any particular
order)
in
the list box and then return their selection to cells M1, M2, M3 and
so
on.

I tried writing in a macro code to do this but it didn't seem to help.
I
got the code from a previous posting but kep getting an error message
about
the ME function:
Dim i As Long
Dim j As Long
With.Me.ListBox1
For i= 0 To .List Count -1
If.Selected(i) Then
j=j + 1
me.range("A" & j).Value = .List(i)
End If
Next i
end With
End Sub

Does anyone out there have any suggestions for someone new to excel?
Thank
you!