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 vote131 views1 answer
Excel vba protect worksheet without password
VBA
0 vote149 views1 answer
Vba cell all borders
VBA
1 vote122 views1 answer
Vba ubound array 2-dimensional
VBA
1 vote141 views1 answer
Vba optional
VBA
0 vote131 views1 answer
Vba dictionary length
VBA
0 vote129 views1 answer
Excel vba first working day month
VBA
0 vote122 views1 answer
Excel vba Column Name to Column Number
VBA
1 vote118 views1 answer
Textbox find and replace vb
VBA
0 vote99 views1 answer
How to self delete a vbscript file
VBA
0 vote115 views1 answer
Quit excel with save changes dialog vb.net
VBA