Function ConCat(Delimiter As Variant, ParamArray CellRanges() As Variant) As String
Dim cell As Range, Area As Variant
If IsMissing(Delimiter) Then Delimiter = ""
For Each Area In CellRanges
If TypeName(Area) = "Range" Then
For Each cell In Area
If Len(cell.Value) Then ConCat = ConCat & Delimiter & cell.Value
Next
Else
ConCat = ConCat & Delimiter & Area
End If
Next
ConCat = Mid(ConCat, Len(Delimiter) + 1)
End Function