Reply to thread

Message: [QUOTE="GS, post: 7413703"] Try this UserDefined function... Public Function JoinData(RangeAddress As String) Dim vData, n& vData = Range(RangeAddress) ReDim vaData(1 To UBound(vData)) For n = 1 To UBound(vData): vaData(n) = vData(n, 1): Next JoinData = Join(vaData, ",") End Function Put it in a standard module and call it from any cell like this... =joindata("C22:C42") -- Garry Free usenet access at [URL]http://www.eternal-september.org[/URL] Classic VB Users Regroup! comp.lang.basic.visual.misc microsoft.public.vb.general.discussion [/QUOTE]