VBA function to concatenate an entire range

ConcatenateAll

Function ConcatenateAll(rng As Range)
  Dim x As String, y As String, cel As Range
  With ActiveSheet
    For Each cel In rng
      y = cel.Value
      If y <> "" Then
        x = x & cel.Value & ", "
      End If
    Next
  End With
  Dim c As String
  x = Trim(x)
  c = Right(x, 1)
  If c = "," Then
    x = Left(x, Len(x) - 1)
    End If
  ConcatenateAll = x
End Function