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 vote170 views1 answer
Refresh token em vb net
VBA
2 votes197 views2 answers
Excel vba if sunday or staurday
VBA
-1 vote189 views1 answer
How save excel through visual basic
VBA
0 vote175 views1 answer
Reset border color textbox vba
VBA
0 vote181 views1 answer
Excel vba calculate
VBA
0 vote186 views1 answer
Vba keep command window open
VBA
1 vote183 views1 answer
Change the first item in a queue vb.net
VBA
0 vote171 views1 answer
Excel protect cells with formulas
VBA
0 vote189 views1 answer
.net crash app
VBA
0 vote199 views1 answer
Visual basic cmd
VBA