Excel vba concatenate range

Public Function ConcatenateRange(pRange As Range, Optional pDelimiter As String = " ") As String
    ConcatenateRange = Join(WorksheetFunction.Transpose(pRange.Value), pDelimiter)
End Function

Sub TestMe()
    Dim r As Range
    Set r = ThisWorkbook.Worksheets(1).Range("A1:A10")
    MsgBox ConcatenateRange(r)
End Sub

Similar codes

0 vote241 views1 answer
Pivot data source not accepting table named range vba
VBA
0 vote230 views1 answer
Refer to resource using string variable vb.net
VBA
0 vote243 views1 answer
Vba test optional argument
VBA
4 votes223 views1 answer
Excel formula for last non-empty cell in a column
VBA
1 vote268 views1 answer
Excel vba first row in range
VBA
0 vote245 views1 answer
Returns an array from function vba
VBA
0 vote233 views1 answer
Excel vba existence of a file
VBA
9 votes516 views2 answers
Excel vba convert 2 Short integers to a Long integer
VBA
0 vote255 views1 answer
Excel filter by date not working vba
VBA
0 vote311 views1 answer
Vba dictionary clear
VBA