Concatenate all strings in a range

SuperConcat.vba

Public Function SuperConcat(range As range) As String
    Dim out As String
    
    For Each rCell In range.Cells
        out = out & rCell.Value
    Next rCell
    
    SuperConcat = out
End Function