Hi

I am trying to allow users to select the pages they would like to prin
- I have devoped the list box with the choices and employed the cod
below. I have initially sort for the selection to be pasted in a cel
and then I would transfer this to the print sheet array code. However
the result in the cell comes in a format which is broken up by a "box
style symbol between each selection and which the find, edit, replac
etc does not work. Can someone please help. See code below.

thanks

Ron

Option Explicit
Private Sub obMulti_Click()
ListBox1.MultiSelect = fmMultiSelectMulti
End Sub



Private Sub OKButton_Click()
Dim Result As String
Dim i As Integer

If ListBox1.ListIndex = -1 Then
Result = "Nothing"
Else
Result = ""
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then _
Result = Result & ListBox1.List(i) & vbCrLf
Next i
End If

Sheets("sheet1").Range("a7") = vbCrLf & Result
Unload Me


End Su

--
Sagaro
-----------------------------------------------------------------------
Sagaron's Profile: http://www.excelforum.com/member.php...fo&userid=2464
View this thread: http://www.excelforum.com/showthread.php?threadid=38229