On Wednesday, September 4, 2013 8:52:58 PM UTC-7, isabelle wrote:
sorry it was missing a space at the last argument of Join function



Sub SuperJoin()

Dim i As Long, x As Long

For i = 1 To Range("A" & Rows.Count).End(xlUp) Step 20

x = x + 1

Range("B" & x) = Join(Application.Transpose(Range(Range("A" & i),

Range("A" & i + 19))), " ,")

Next

End Sub



isabelle


Very nice. Thank you isabelle.

Regards,
Howard