Hi Howard
You could try it this way.. '?hange to suit ( - | ~ | / | \ | . | _ )
Range("AE11").Value = Range("A2") & ", " & Range("B2") & ", " & _
Range("C2") & ", " & Range("D2") & ", " & Range("E2") & ", " & _
Range("F2") & ", " & Range("G2") & ", " & Range("H2") & ", " & _
Range("I2") & ", " & Range("J2") & ", " & Range("K2") & ", " & _
Range("L2") & ", " & Range("M2") & ", " & Range("N2") & ", " & _
Range("O2") & ", " & Range("P2") & ", " & Range("Q2") & ", " & _
Range("S2") & ", " & Range("T2") & ", " & Range("U2") & ", " & _
Range("V2") & ", " & Range("W2") & ", " & Range("X2") & ", " & _
Range("Y2") & ", " & Range("Z2")
It gives you the following...
x, o, x, o, x, o, x, o, x, o, x, o, x, o, x, o, x, x, o, x, o, x, o, x, o
HTH
Mick.