Function Merge

Public Function Merge(rng As range, splitter As String) As String
'Merge = ThisWorkbook.Name
Dim Str As String
Str = ""
Dim n As range
For Each n In rng
   Str = Str & n.Value & splitter
Next n
Str = Left(Str, Len(Str) - 1)
Merge = Str

End Function