Get Multi Selection Listbox userform and clear all selection

Good morning jp16

Are you using a Forms listbox, or a ActiveX listbox?
It makes a difference, and if you are using the former, then you will need to change to the ActiveX version, which will involve a learning curve, which we can help with.

If you are already using the ActiveX version, then this code will insert all your selections into your linked cell as a comma separated list.

Private Sub ListBox1_Change()
Dim SelBox As String, n As Long
With Sheets("Sheet1").ListBox1
For n = 0 To .ListCount - 1
If .Selected(n) Then
SelBox = SelBox & ", " & .List(n)
End If
Next n
Range(.LinkedCell) = Mid(SelBox, 3)
End With
End Sub

HTH

DominicB