thanks.

i ended up writing this:

Private Sub Compute_Click()
Worksheets("Sheet1").Range("A1").Select
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then ActiveCell.Value = ListBox1.List(i)
If ActiveCell.Value = "" Then ActiveCell.Select
If ActiveCell.Value < "" Then ActiveCell.Offset(1, 0).Select
Next i
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Copy
Worksheets("sheet2").Range("A1")
Unload Me
End Sub

works perfectly. :)


--
dreamz
------------------------------------------------------------------------
dreamz's Profile: http://www.excelforum.com/member.php...o&userid=26462
View this thread: http://www.excelforum.com/showthread...hreadid=476924