For Bob Duke Concatination UDF

[PeterAtherton]

Hi Bob

Maybe this function might be of some use. I don't know about your formula
though.

Function BigConcat(Data) As String
Dim c, str As String, temp As String
Dim l As Integer, addr As String, msg

For Each c In Data
l = Len(c) + l: r = c.Row: col = c.Column
If l > 1024 Then
Set addr = Cells(r, col - 1)
BigConcat = str
alert = MsgBox("Value: " & temp & Chr(10) _
& "Cell " & addr.Address, , "Last cell Included in Display!")
Exit Function
End If
temp = c
str = str & c
BigConcat = str
End Function

Regards
Peter