Help for this page

Select Code to Download

Select or download this

Function Concat2(myRange As Range, Optional myDelimiter As String) As 
+String
    Dim r As Range

...
        Concat2 = Left(Concat2, Len(Concat2) - Len(myDelimiter))
    End If
End Function