Use a simple UDF like this:

Function Concatall(rng As Range) As String
Dim cell As Range
For Each cell In rng
Concatall = Concatall & cell.Text
Next
End Function

---
Call as =Concatall(A1:A10)

HTH
Jason
Atlanta, GA

-----Original Message-----
How do you concatenate an entire range at once?

=CONCATENATE(A1:A10) entered as array still only returns
the first element, A1.

There has to be something better than -

=CONCATENATE(A1,A2,A3,A4,A5,...A10)

Thanks
.