Excel vba join variant array

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 vote142 views1 answer
Vlookup columns not next to each other
VBA
1 vote159 views1 answer
Vb.net get name by Selection Changed
VBA
0 vote157 views1 answer
(SecurityProtocolType)3072 vb.net
VBA
0 vote141 views1 answer
Change "location" of binding navigator vb
VBA
6 votes169 views1 answer
Excel vba isalpha
VBA
0 vote152 views1 answer
Move bindingnavigator vb
VBA
0 vote145 views1 answer
Vbnet check if string is only symbols
VBA
0 vote154 views1 answer
Excel delete ever other vba
VBA
0 vote161 views1 answer
VBA OR vb6 find OR replace string from the end
VBA
0 vote152 views1 answer
Vba loop through textboxes
VBA