Flexible Concatenation Function

[snb]

or ?

Sub ConcatDashedRanges()
  Columns(1).replace "=","'="

  For Each Ar In Columns(1).SpecialCells(2).Areas
    Ar(1).Offset(, 1) = Application.Trim(Join(filter(filter(Application.Transpose(Ar.Value),"--",false),"'=",false), ";"))
  Next
End Sub