Range("A10").Value =
Join(Application.Transpose(Application.Transpose(R ange("A1:Z1").Value)),
"~")





"shortstop" wrote in message
...
Excel 2003 is my operating platform.

I have data in a row of my spreadsheet. A1:Z1 for example. I'd like to
concatenate it in VBA Code separated by a tilde "~" and have VBA put the
result in cell A10.

The code snippet below would suffice, I assume. However, it seems
terribly inefficient.

Range("A10").Value = Range("A1") & "~" & Range("B1")
.......................... & "~" & Range("AZ1")

Can somebody provide guidance to make my code efficient.