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

1 vote254 views1 answer
Excel vba convert text YYYYMMDD to date
VBA
0 vote216 views1 answer
Worksheet.pastespecial textbox
VBA
0 vote270 views1 answer
(SecurityProtocolType)3072 vb.net
VBA
1 vote223 views1 answer
Export datagridview to excel vb.net
VBA
0 vote228 views1 answer
Excel vba first working day month
VBA
1 vote214 views1 answer
Excel vba first row in range
VBA
5 votes255 views1 answer
Excel vba first byte from INTEGER
VBA
0 vote217 views1 answer
Excel vba address not absolute
VBA
0 vote237 views4 answers
How to continue formula in below line in vba code
VBA
0 vote241 views1 answer
Columns dont autoresize on program start vb.net
VBA