Concatenate VBA in Reverse Order

[ststern45]

Bill Jelen has a Mr Excel video that has the following code

Function ConcatenateRange(rCells As Range)
Dim vTemp As Variant
Application.Volatile

For Each vTemp In rCells
ConcatenateRange = ConcatenateRange & vTemp & " "
Next vTemp
End Function

If I currently have a cell range from A20 through A26 which is what I have now.
Is it possible to change the code where it concatenates cell A26 1st then A25, A24, A23, A22, A21, A20?
Thanks in advance!!

 

[Rick Rothstein]

Noting the code you posted output a text string with a trailing space. Keeping that trailing space, but outputting in the order you asked for, just replace the line of code inside the For..Next loop with this one...

ConcatenateRange = vTemp & " " & ConcatenateRange

If you do not want the trailing space, you will need another line of code that TRIM's ConcatenateRange after the loop.

 

[ststern45]

Thank you Rick.
Changes works like a charm.

 

[ststern45]

I did find a minor error when using the update line of code
This line works when calculating the concatenated text.
The text can be any combination of "x" and "dashes" ( -) from a range of 5 cells such as A1 through E1
ConcatenateRange = ConcatenateRange & vTemp & " "

The updated code below gives me the same but for some reason the concatenated result with the "x" and dashes (-) can not work with any other formulas to count patterns of x's and dashes.
ConcatenateRange = vTemp & " " & ConcatenateRange

Thanks in advance.

 

[ststern45]

Ok disregard the previous post. I made an error in the changes.
Thank you again Rick!!
Sorry for the post