I think Bob had a small typo in his code:

Option Explicit
Private Sub CommandButton1_Click()
Dim i As Long
Dim j As Long
With Me.ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
j = j + 1
me.Range("A" & j).Value = .List(i)
End If
Next i
End With
End Sub

As a side note, you may want to include the current version of the code you're
using and indicate the line that caused the trouble.

I assumed that the listbox and commandbutton were from the forms toolbar and
were placed on the worksheet.

If that's true and you're using xl97, make sure you change the .takefocusonclick
property of the commandbutton to false.

(Rightclick on that commandbutton while in design mode and choose properties to
find/change it.)

If this is on a userform, then I broke it.

Me.Range("a" & j).value = .list(i)
should be more like:
worksheets("sheet99").range("a" & j).value = .list(i)




Steve Jones wrote:

Thanks very much Bob for the speedy response.

I have copied the code and run it from a cmd button.

It is coming with an error "method range of object global failed".

I have no doubt it is something I have done.

I did substitute the "A" for "A1" afterwards. This worked although not quite
as planned, I selected 1,3 and 5 and it pasted the values into cells
A10,A12 and A14.

I'd be grateful for some more help.

Thanks

Steve

"Bob Phillips" wrote in message
...
With Me.ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
j = j + 1
Range("A" & i).Value = .List(i)
End If
Next i
End With


--
HTH

Bob Phillips

"Steve Jones" wrote in message
...
Hi

I have created a list box using the multi select option. (say 1 - 10)

If the user highlights several options say 1,7,9 can I return their
selection to cells A1 = 1,A2 = 7,A3=10 etc.

I have seen in a reference book that the selection can be displayed in
Msg
box format but I can't work out how to transfer results to worksheet.

Thanks very much

Steve






--

Dave Peterson