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
Public Function Merge2(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
If n.Value <> "" Then
Str = Str & n.Value & splitter
End If
Next n
'If Right(Str, 1) = splitter Then
Str = Left(Str, Len(Str) - 1)
'End If
Merge2 = Str
End Function