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 vote149 views1 answer
Vba argument is set
VBA
-1 vote187 views1 answer
Code for reading letters only in vb 6
VBA
5 votes190 views1 answer
Excel vba first byte from INTEGER
VBA
0 vote169 views1 answer
Vb test if reference is null
VBA
0 vote173 views1 answer
Vba sort the data Z to A
VBA
0 vote176 views1 answer
VBA
VBA
0 vote162 views1 answer
Vba collection key list
VBA
2 votes169 views2 answers
Vba code to remove duplicates from a column
VBA
0 vote159 views1 answer
Excel vba address not absolute
VBA
0 vote143 views1 answer
How to self delete a vbscript file
VBA