Function splice_um(rr As Range) As String
Dim s As String
s = ""
bullet = ". "
cr = Chr(10)
For Each r In rr
If Not IsEmpty(r) Then
s = s & bullet & r.Value & cr
End If
Next
splice_um = s
End Function

Used a period for a bullet. Text wrapping must be on to see the column.
--
Gary''s Student - gsnu200721