Hans, a while back you built a function for me that would concatenate a listed column range and place it in the current cell, separated by commas.
Code: Select all
Function ConcatCells(rng As Range) As String
Dim cel As Range
Dim retVal As String
For Each cel In rng
retVal = retVal & ", " & cel.Text
Next cel
If retVal <> "" Then
ConcatCells = Mid(retVal, 3)
End If
End Function
The function still runs however it no longer separates the column values with a comma and a space. It just strings everything together.
Any idea why and how to resolve?
Thank you for your help!
-Scott