Is is possible to amend the following macro, so that a listbox selection
is copied to a range of consecutive cells? Yes that's right! For
scheduling purposes I need exactly the same value copied to each cell.
The macro listed below only copies the selection to the active cell. Any
help appreciated

Sub Control_on_Worksheet()
Dim mypick As Variant
With Worksheets("Sheet1").DropDowns("my control")
mypick = .ListIndex
ActiveCell.Value = .List(mypick)
..Value = 0
End With
End Sub


--
lozc
------------------------------------------------------------------------
lozc's Profile: http://www.excelforum.com/member.php...o&userid=31340
View this thread: http://www.excelforum.com/showthread...hreadid=510269