I have created a list box, I would like the selection the user clicks on
to then be copied to multiple cells.

If i could get it to write to one cell I am sure I can figure out the
rest.

When the user selects the item it is in listbox1.value and
listbox1.text but I have been unsuccesfull so far.

here is the code:

Sub RemoveDuplicates1()
Dim AllCells As Range, Cell As Range
Dim NoDupes As New Collection

On Error Resume Next
For Each Cell In Range("Data")
NoDupes.Add Cell.Value, CStr(Cell.Value)
Next Cell
On Error GoTo 0
UserForm1.Show

End Sub

I defined the worksheet and range in the listbox properties.


--
eklarsen
------------------------------------------------------------------------
eklarsen's Profile: http://www.excelforum.com/member.php...fo&userid=9001
View this thread: http://www.excelforum.com/showthread...hreadid=487826