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

    Application.Volatile
    For Each r In myRange
        If Len(r.Text) > 0 Then
            Concat2 = Concat2 & CStr(r.Text) & myDelimiter
        End If
    Next r
    If Len(myDelimiter) > 0 And Len(Concat2) > Len(myDelimiter) Then
        Concat2 = Left(Concat2, Len(Concat2) - Len(myDelimiter))
    End If
End Function