Hi,

You could create a listbox on your form, and keep adding the items fro
the selection to that list box.

In your loop, you can add a simple line refering to your list box an
add the selected items by using the propery AddItem, for example,

For i = LBound(FileName) To UBound(FileName)
Msg = Msg & FileName(i) & vbCrLf
mylistbox.Additem FileName(i)
Next i

Then in the Enter button, copy the contents of the ListBox to th
worksheet using following loop:

For i = 1 to mylistbox.Listcount
j=12
Range("A" & j) = mylistbox.List(i-1)
j=j+1
Next

--
a7n

-----------------------------------------------------------------------
a7n9's Profile: http://www.excelforum.com/member.php...fo&userid=3214
View this thread: http://www.excelforum.com/showthread.php?threadid=56326