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 vote319 views1 answer
Vba horizontalalignment
VBA
-1 vote289 views1 answer
System.Data.OleDb.OleDbException: 'No value given for one or more required parameters.'
VBA
0 vote326 views1 answer
How to add line graph vb net
VBA
0 vote322 views1 answer
Excel vba select multiple shapes
VBA
3 votes358 views1 answer
Extract word in a text in excel
VBA
0 vote314 views1 answer
Vba like with wildcard
VBA
0 vote315 views1 answer
Limit combobox to list vba
VBA
0 vote330 views1 answer
Vb ternary
VBA
0 vote354 views1 answer
Excel vba convert cells address
VBA
0 vote298 views1 answer
Do until vb.net
VBA