Concatenate all values in a range

Function used to concatenate all the values in a given range
Author: michael@excelexperts.co.uk

Function ConcatenateRange(rSource As Range) As String

    Dim rCell As Range

    On Error Resume Next
    For Each rCell In rSource
        ConcatenateRange = ConcatenateRange & rCell.Text
    Next
    On Error Resume Next

End Function