hi Howard,

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

Le 2013-09-04 22:22, Howard a écrit :

Want to xpose a list of items in A to cells in B twenty at a time then the next twentyin B below the first etc.

Thanks,
Howard

Option Explicit

Sub SuperJoin()
Range("B1") = Join(Application.Transpose(Range(Range("A1"), _
Range("A" & Rows.Count).End(xlUp))), " , ") '" / ")
End Sub