MultiSelect Listbox selections to cells

Hi

See if this gives you some ideas.

cntr = 0
  For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
      ActiveCell.Offset(cntr, 0).Value = ListBox1.List(i)
      ActiveCell.Offset(cntr, 2).Value = ListBox1.List(i, 1)
      cntr = cntr + 1
    End If
  Next i

rylo