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 vote138 views1 answer
Select case vba
VBA
0 vote148 views1 answer
Dynamically change drop down list visual basic
VBA
27 votes263 views2 answers
Vba check if file exists
VBA
0 vote144 views1 answer
Vba sort multiple columns
VBA
0 vote136 views1 answer
Vba option button selected
VBA
1 vote158 views1 answer
Extract the second word in a text in excel
VBA
0 vote136 views1 answer
Openfiledialog specific folder
VBA
0 vote174 views1 answer
Check if cell is dbnullvb.net
VBA
0 vote137 views1 answer
Convert unix to date vba
VBA
13 votes267 views2 answers
Vba write text file
VBA