Do you mind a UDF? This will work:

Function ConCat(rng As Range)
Dim temp As String
For Each rng In rng
temp = temp & rng
Next
ConCat = temp
End Function

Then, all you have to do to call it is input as a range like so:

=ConCat(A1:A1000)


--
Regards,
Dave


"Jeff" wrote:

I need to concatenate about 100 cells.

The concatenate function only accepts 25 cells.

Is there any way to concatenate all the cells in a simple formula?