Copiar elementos de listbox a una celda

Tengo un problema con un listbox con una lista de item dinámica. Se alimenta de una tabla.

Lo que requiero es pasar los item que seleccione a una celda pero logro hacerlo. He probado con el siguiente código pero el valor siempre da false. He intentando con otros códigos que están en la red y nada. Creo que el problema es que se en algún punto se pierde la selección.

        For x = 0 To lst_compositores.ListCount - 1
            If lst_compositores.Selected(x) = True Then
                lista = lista & vbNewLine & lst_compositores.List(x, 0)
            End If
        Next
        lista = Mid(lista, 2, Len(lista) - 1)
        ActiveCell.Offset(0, 5).Value = lista