Function CellSort(cll)
x = Split(cll, ",")
For i = LBound(x) To UBound(x) - 1
  For j = LBound(x) To UBound(x) - 1 - i
    If CDec(x(j)) > CDec(x(j + 1)) Then temp = x(j): x(j) = x(j + 1): x(j + 1) = temp
  Next j
Next i
CellSort = Join(x, ",")
End Function