Concatenate values from a listbox into a cell

ehowarth 

Create a macro in a standard module (the kind you create by selecting Insert > Module in the Visual Basic Editor):

Sub ListValues()
    Dim lbx As ListBox
    Dim i As Long
    Dim s As String
    Set lbx = Worksheets("ListBox").ListBoxes(Application.Caller)
    For i = 1 To lbx.ListCount
        If lbx.Selected(i) Then
            s = s & ", " & lbx.List(i)
        End If
    Next i
    If s <> "" Then
        s = Mid(s, 3)
    End If
    Worksheets("Output").Range("C7").Value = s
End Sub

Assign this macro to the list box.