I added code for a worksheet function and saved it in a module in the PERSONAL.xls VB project. When I use this function in a worksheet formula, I'm supposed to be able to reference the values in a range of cells and return a concatenated text with the repeated separators entered into the second parameter of the function.
Function Join(RangeToJoin As Range, BetweenEach)
Join = " "
For Each cell In RangeToJoin
Join = Join & cell.Value & BetweenEach
'Get rid of the final Between
If Len(Join) > 0 Then
Join = Left(Join, Len(Join) - Len(BetweenEach))