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 vote164 views1 answer
Vbide vbproject reference
VBA
0 vote210 views1 answer
Vba dictionary clear
VBA
0 vote191 views1 answer
Vba createparameter null
VBA
0 vote214 views1 answer
Group controls programmatically vb
VBA
0 vote195 views1 answer
Vbnet line chart showing extra space
VBA
0 vote207 views1 answer
Prive sub enter clicked vb
VBA
0 vote195 views1 answer
Limit combobox to list vba
VBA
0 vote283 views1 answer
Vba change active sheet
VBA
0 vote203 views1 answer
Send text to clipboard vb.net
VBA
1 vote202 views1 answer
VBA Loop through recordset
VBA