Joining a range as a string

[jts2004]

A1:B10 has random numbers words or letters. I want to concatenate them into one cell w/o using multiple "&" strings

 

[Scott Huish]

How about:

Public Function Concat(a As Range) As String
Dim c As Range, x As String, e As Integer
For e = a.Columns.Column To a.Columns(a.Columns.Count).Column
For Each c In Intersect(Columns(e), a)
    x = x + c.Text
Next
Next e
Concat = x
End Function

 

[jts2004]

That works thanks