Sub SelectionToArray()
Dim arrSelection() As String
Dim i As Integer

i = 0
ReDim arrSelection(i)

For Each c In Selection
    arrSelection(i) = c.Value
    i = i + 1
    ReDim Preserve arrSelection(i)
Next c