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 vote175 views1 answer
Reset border color textbox vba
VBA
5 votes189 views1 answer
Excel vba how to unit test vba code
VBA
27 votes303 views2 answers
Vba check if file exists
VBA
1 vote183 views1 answer
Vb.net get name by Cell Click
VBA
0 vote164 views1 answer
Visual basic msdos
VBA
0 vote180 views4 answers
Vgrive,deb
VBA
0 vote183 views1 answer
If statement vdhl
VBA
0 vote169 views1 answer
How to get the value of optionbutton in vba
VBA
1 vote175 views1 answer
Sort using vba
VBA
1 vote159 views1 answer
What does vbs stand for
VBA