mail
 

Private Sub Commandbutton8_click()

Dim rng as Range, rng1 as Range
with Activesheet
set rng = .Range(listbox1.rowsource)(listbox1.ListIndex+1)

set rng1 = .Range(listbox2.rowsource)(listbox2.ListIndex+1)


..Range(rng,rng1).copy _
Destination:=worksheets("Sheet5").Range("A1")
End with

End sub



--
Regards,
Tom Ogilvy


D wrote in message
...
I need a routine with a urserform that selects one point out of a listbox
from a list on a worksheet and then make a selection from a second listbox
from another point from the same list on the worksheet and then with a
command button send the selected list to another worksheet.
Anyone got any ideas?
Thanks