Function XL2L_rangeConcat(r_Range As Range, Optional s_separator As String) As String
'Concatenate all values in a range
'Set up as a User-Defined Function (Google "UDF") in your Excel workbooks - can execute within
'cells via function =XL2L_rangeConcat(A1:A10, " ")
Dim r_cell As Range

For Each r_cell In r_Range
    XL2L_rangeConcat = XL2L_rangeConcat & r_cell.Value & s_separator
Next r_cell
End Function    'XL2L_rangeConcat