"Dick Kusleika" wrote:

Ronbo

Well, Dave was right. I thought the Value property of the Listbox would
give you an error in a mulitselect listbox, but it's just Null.

First, Sheet1 is the CodeName of the sheet, not the name. Sheet1's name is
RESULTS. Sheet2's name is "Sheet1" Look at the Project Explorer (Cntl+R)
to see how that works.

Here's the code that you need

Private Sub OKButton_Click()

Dim i As Long

For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) Then
Worksheets("Sheet1").Range("B43").End(xlUp) _
.Offset(1, 0).Value = Me.ListBox1.List(i)
End If
Next i

Unload Me

End Sub

That looks like a very useful spreadsheet you're building.

--
Dick Kusleika
MVP - Excel
Excel Blog - Daily Dose of Excel
www.dicks-blog.com


Ronbo wrote:
"Dave Peterson" wrote:

Dick's address is in the header:

"Dick Kusleika"

ps. When I turned off smart quotes in MSWord, it fixed the apostrophe
problem, too.

Your apostrophes still look funny.

Ronbo wrote:
<<snipped

What is your e-mail address? If you want you can e-mail it to me at
ronbowman32@aol.
Its 10:30 CT. I will be back in about two hours and will e-mail it
then if I have an address.

Thanks



--

Dave Peterson


Dave -

Thanks

Dick -

I just got your last response. I was looking for an e-mail reply and just
came back here and found you last response.

It WORKS PERFECT!!!

Thanks a lot for your help, time, patiance and expertise.

As for the sheet name, I named it sheet1 as to not make it more confusing by
changing names through this discussion.

Ronbo

P.S. Thanks a lot to Dave P. also