On Dec 5, 12:23 pm, "Rick Rothstein"
wrote:
Don't use a CellLink (assuming that is what you are currently doing);
rather, assign the ListBox to use this macro instead...

Sub AssignListItemToCell()
With Worksheets("Sheet1").Shapes("List Box 1").OLEFormat.Object
Range("A1").Value = .List(.ListIndex)
End With
End Sub

Thanks Rick, this works great.
I have input range A1 to A10 selected. I want to access data in the
next column. How can this be done? TIA