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

Change the worksheet reference ("Sheet1" in my example code), List Box name
("List Box 1" in my example code) and the receiving Cell (A1 in my example
code) to suit your actual conditions.

--
Rick (MVP - Excel)


"Fan924" wrote in message
...
I am using a list box from the forms toolbar. This is new for me. I
loaded 10 numbers of 4 digits. The output is numbers 1 to 10. I would
rather it output the 4 digit numbers instead. It looks like this is
not an option. Are there any good links on the list box? I have found
many of the bad ones.