=A1&B1&C1
OR
=A1 & " " & B1 & " " & C1
Or a UDF which ignores blanks in a range
Function ConCatRange(CellBlock As Range) As String
Dim cell As Range
Dim sbuf As String
For Each cell In CellBlock
If Len(cell.text) 0 Then sbuf = sbuf & cell.text & " "
Next
ConCatRange = Left(sbuf, Len(sbuf) - 1)
End Function
=ConCatRange(A1:F1)
Gord Dibben MS Excel MVP
On Tue, 10 Oct 2006 13:30:01 -0700, Enterprise Todd <Enterprise
wrote:
I am trying to figure out how I can return the values of multiple cells into
one (Merged group) cell for a cleaner presentation, any suggestions?