Copy range of cells to subject of outlook mail

Question

The function of this code is to copy particular range of cells, each cell (having codes like 1ML-234-1R) and place it in the body of outlook ma

Answer 1

OK then:

'.....
.Subject = RangeToCSV(rng)
'.....

Function:

Function RangeToCSV(rng)
    Dim s, sep, c As Range
    For Each c In rng.Cells
        If c.Value <> "" Then
            s = s & sep & c.Value
            sep = ","
        End If
    Next c
    RangeToCSV = s
End Function