Dates in column format to a single cell

Hello,

I found an easier way to do this using VBA code which reverses the text to columns function and also allows to select a large range if needed:

Public Function ReverseTextToColumns(Rg As Range, Optional D As String = " ") As String
'updateby Extendoffice 20160406
Dim xArr
xArr = Application.WorksheetFunction.Transpose(Application.WorksheetFunction.Transpose(Rg.Value))
ReverseTextToColumns = Join(xArr, D)
End Function

I then copy and paste special transpose my column data e.g. (A1:A10) so that it is now in rows (B1:K1) and then in L1 I type =reversetexttocolumns(B1:K1,",")