concat.vb

Function concat(useThis As Range, Optional delim As String) As String
' this function will concatenate a range of cells and return one string
' useful when you have a rather large range of cells that you need to add up
Dim retVal, dlm As String
retVal = ""
If delim = Null Then
    dlm = ""
Else
    dlm = delim
End If
For Each cell In useThis
    If CStr(cell.Value) <> "" And CStr(cell.Value) <> " " Then
        retVal = retVal & CStr(cell.Value) & dlm
    End If
Next
If dlm <> "" Then
    retVal = Left(retVal, Len(retVal) - Len(dlm))
End If
concat = retVal
End Function