Public Function CONCATENATEMULTIPLE(Ref As Range, Separator As String) As String

Dim Cell As Range
Dim Result As String

If Separator = "Return" Then
    Separator = Chr(10)
End If

For Each Cell In Ref
 Result = Result & Cell.Value & Separator
Next Cell

CONCATENATEMULTIPLE = Left(Result, Len(Result) - Len(Separator))

End Function







Public Function TrimLeadingCharacters(StringToTrim As String, CharacterToTrim As String)

    Dim StringLength As Integer
    Dim StringCounter As Integer
    Dim TrimCharacters As Integer
    
    StringLength = Len(StringToTrim)
    
    For StringCounter = 1 To StringLength
        'Find first non-matching character
        If Mid(StringToTrim, StringCounter, 1) <> CharacterToTrim Then
            TrimCharacters = StringCounter - 1
            StringCounter = StringLength
        End If
    
    Next StringCounter


    TrimLeadingCharacters = Replace(StringToTrim, CharacterToTrim, "", , TrimCharacters)




End Function