Dick

I dont know whats wrong with me, I couldn't get the VB editor to take
it. I did end up getting it to work off some of the things you showed
me. Thanks for your help and patience in working with me on this. Here
is what I came up with, it's kind of ghetto, but it does what I want it
to.

Public Sub CommandButton1_Click()
Worksheets("Sheet2").Range("C15:C35").ClearContent s
Count = 0
For j = 0 To Worksheets("Sheet1").ListBox1.ListCount - 1
If Worksheets("Sheet1").ListBox1.Selected(j) = True Then
Count = Count + 1
Worksheets("Sheet2").Activate
Cells(Count + 15, 3) = Worksheets("Sheet1").ListBox1.List(j)
End If
Next j
Worksheets("Sheet1").Activate
End Sub

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!