Transferring Array into a Cell

[TheShaunMichael]

Have a multi-select enabled list box on a userform. Would like to transfer a list of the selected values to Range("R2"). I've got all of the selected values in an array but am struggling with putting the array values into a cell.

For X = 0 To Me.lbSourceLanguage.ListCount - 1
If Me.lbSourceLanguage.Selected(X) Then
ArrItem = ArrItem + 1
ReDim Preserve arr(ArrItem)
arr(ArrItem) = Me.lbSourceLanguage.List(X)
End If
Next X

Where do I go from here?

Have tried:
.Cells(2, 18).value = arr
.Range("R2").value = arr

and other similar strings..

 

[mikerickson]

You can't put an array in a cell, but you can put a string

ArrItem = 0

With Me.lbSourceLanguage
    ReDim arr (1 to .ListCount)

    For X = 0 to .ListCount - 1
        If .Selected(X) Then
            ArrItem = ArrItem + 1
            arr(ArrItem) = .List(x)
        End If 
    Next X
End With

Redim Preserve arr(1 to ArrItem)
Range("A1").Value = Join(arr, ", ")

 

[TheShaunMichael]

Awesome! Thank you so much.

Just so I understand - why can't an array go into a cell? Other similar situations you can think of?