Multiselect listbox cell link

[Nuz]

I have a listbox on the worksheet where multiple items can be selected. Listbox is created from Forms toolbox (i.e. not from Control Toolbox).

Ho can I determine what are the selected items on the list? I have set a Cell link but it always displays 0. If selection type is 'Single' then it works but I have to use the selection type 'Multiple'.

 

[CSCP_EXCEL]

    With ActiveSheet.Shapes(Application.Caller)
        Set LinkedCell = Range(.ControlFormat.LinkedCell)
        With .OLEFormat.Object
            For i = 1 To .ListCount
                LinkedCell.Offset[B](i-1, 0)[/B] = .Selected(i)
            Next i

Wow, thanks mikerickson, I decided to poke at it a little and was able to remove the "0" output from the cell link by subtracting 1 from the I, thanks for the prompt reply.

 

[mikerickson]

I would hesitate to make that change. Changing the value of the linked cell also changes the state of the control. That might not be the case in a multi-select List Box, but I'd need to test before trusting.
Note also that if you have many list boxes, you can assign the same macro (with no change) to each list box and they will all behave appropriatly.