Function ConcatenateRange(Parts As Range, Separator As String, Blank As Integer, Zero As Integer)
' Build a single string from a passed range with a passed separator
' placed between each value. The separtaor can be more than 1 character
' If Blank = 0, cells = "" are ignored, else they are concatenated
' If Zero = 0, cells = 0 and <> "" are ignored, else they are concatenated
Dim strAll As String, cel As Range, celCount As Integer
strAll = ""
celCount = 0
For Each cel In Parts.Cells
  If (Blank = 0 And cel.Value = "") Or (Zero = 0 And cel.Value = 0 And Len(cel) > 0) Then
  Else
    celCount = celCount + 1
    strAll = strAll & Separator & cel.Value
    ' Removes separator placed before first concatenated cell
    If celCount = 1 Then
      strAll = Right(strAll, Len(strAll) - Len(Separator))
    End If
  End If
Next cel
ConcatenateRange = strAll
End Function