Public Function Merge2(rng As Range, splitter As String) As String

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