ExcelBanter - Selecting Multiple items in ListBox

This might give you some ideas:

http://groups.google.com/groups?thre...1043%40msn.com

asmenut wrote:

I have two list boxes that I am using as add / remove boxes. Is there a way
to allow multiple selections to be added at the same time.

If List_AddFrom.ListIndex = -1 Then Exit Sub
If Not cbDuplicates Then
' See if item already exists
For i = 0 To List_AddTo.ListCount - 1
If List_AddFrom.Value = List_AddTo.List(i) Then
Beep
Exit Sub
End If
Next i
End If
List_AddTo.AddItem List_AddFrom.Value

End Sub

Private Sub CommandRemove_Click()
If List_AddTo.ListIndex = -1 Then Exit Sub
List_AddTo.RemoveItem List_AddTo.ListIndex
End Sub

Private Sub MultiPage1_Change()
If MultiPage1.Value = 2 Then
EO_Wizard.List_AddFrom.RowSource = ""
EO_Wizard.List_AddFrom.Clear
With EO_Wizard.List_AddFrom
.RowSource = ""
.AddItem "Machine"
.AddItem "Part"
.AddItem "Accessory"
.AddItem "Rescinds PEC"
.AddItem "Preventive Action"
.AddItem "Bulletin Required"
.AddItem "UL/CSA/CE Affected"
.AddItem "Manual Change Required"
.AddItem "S/N at Changeover"
.AddItem "Cost Increase over 5%"
.AddItem "Appearance/Function/Safety Affected"
.AddItem "1st Piece Sample Required"
End With
End If

End Sub

--

Dave Peterson